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Preface 



Many people look at game playing on a computer as a waste of time; 
unfortunately, they do not realize that this type of activity stimulates 
the user's interest in computers and program writing and helps him 
better understand computers. 

Games should never be considered a waste of time because if 
they do nothing else, they teach the user something within the realm 
of the game whether it be reaction, calculation, logical reasoning or 
use of mathematical ideas. 

Of course, the easiest way to learn about BASIC or about 
computers is to play with them, and games provide an excellent 
channel for this type of expression. 

I would like to thank Peter for all his help and advice, and 
especially thank Bill and Dan for their infinite patience with me. 

Ken Tracton 
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Section I 
Computer Games In BASIC 



This section contains 24 games in BASIC for your home computer. 
These games serve as exercises to increase your knowledge of 
programming in BASIC language and your working knowledge of 
what your computer can do. 

Some games are word games. Others are combat or chase 
games where you're on search and destroy missions. Number 
games include guessing games and plotting routines. Some games 
show graphics displays while others are designed to be of practical 
use. 

All games include a flowchart, sample run and program listing. 
All programs will run in 8K of memory (not including BASIC) except 
for Star Warp which requires 20K. 

Information is included on which programs can be used on a 
Radio Shack TRS-80 computer. Section II contains actual program 
listings for some of the games for a TRS-80 or PET^ 
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WUMPUS 

The wumpus is asleep somewhere in his cave of 20 rooms. You 
must track him down and shoot him with one of your five arrows. 
The trick is in not getting eaten by the wumpus, being taken to 
another room by a super bat, or falling into a bottomless pit during 
the hunt. Also, be sure to avoid shooting yourself with an arrow! 




HEADER 



INITIALIZE AND 
PRINT LOCATION 




Flowchart for Wumpus 
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Sample Run 



INSTF^UCTIONS'i' C Y-N) 
? Y 

WELCOME TO 'HUNT THE IaJUMFUS' 

TI-IE WUMFUS LIUES IN A CAVE OF 20 FUIOMS, EACH ROOM 
HAS 3 TUNNELS LEADING INTO OTHER ROOMS. (LOOK AT A 
DUODECAHEDRON TO SEE HOW THIS WORKS ■•■IF YOU DON'T KNOW 
WHAT A DUODECAHEDRON IS;. ASK SOMEONE) 

HAZARDS 

BOTTOMLESS PITSv THERE ARE 2 OF THESE 

FALL INTO ONE? AND YOU WILL LAND IN CHINA 
SUPER BATS ■•■■ TWO OTHER ROOMS HAUE SUPER BAT'S, IF YOU 

GO THERE? A BAT GRABS YOU AND TAKES YOU TO SOME OTHER 
ROOM AT RANDOM. (WHICH MIGHT BE TROUBLESOME) 

WUMPUS 

THE WUMPUS IS NOT BOTHERED BY THE HAZARDS (HE HAS SUCKER 
FEET AND IS TOO BIG FOR A BAT TO LIFT), USUALLY 
HE IS ASLEEP. TWO THINGS WAKE HIM UP? YOUR ENTERING 
HIS ROOM OR YOUR SHOOTING AN ARROW. 

'if the WUMPUS WAKES. HE MOMES (P-.75) ONE ROOM 
OR STAYS STILL (P=.25). AFTER THAT? IF HE IS WHERE YOU 
ARE? HE EATS YOU UP ( Ss YOU LOSE!) 

YOU 

EACH TURN YOU MAY MOUE OR SHOOT A CROOKED ARROW 
MOVING I YOU CAN GO ONE ROOM (THRU ONE TUNNEL) 
arrows: you have 5 ARROWS. YOU LOSE WHEN YOU RUN OUT. 
EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLING 
THE COMPUTER THE ROOM/S TOU WANT THE ARROW TO GO TO. 
IF THE ARROW CAN'T GO THAT WAY (IE NO TUNNEL) IT HOMES 
AT RANDOM TO THE NEXT ROOM. 

IF THE ARROW HITS FHE WUMPUS? YOU WIN. 

IF THE ARROW HITS YOU? YOU LOSE. 

WARNINGS 

WHEN YOU ARE ONE ROOMS AWAY FROM THE WUMPUS OR HAZARD? 

THE COMPUTER SAYS 

WUMPUS ■■■■ 'I SMELLL A WUMPUS' 

BAT ■ 'BATS NEARBY' 

PIT - 'I FEEL A DRAFT' 

HUNT THE WUMPUS 



YOU ARE IN ROOM 2 

TUNNELS LEAD TO 1 3 10 

SHOOT OR MOVE ? (S-M) 
'i' M 

OKAY? WHERE TO NOW? 
? 3 



I FEEL A DRAF-T! 

YOU ARE IN ROOM 3 

TUNNELS LEAD TO 2 4 
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SHOOT OR HOME ? (S--H) 
? H 

OKAYi- UHEF«: TO NOW? 
? 4 

A PTT. CHINA HEF^E I COME !!!!!!! 

in I M M Y . Y U L S E y W U M F' 1 1 J U S T I... M E Y U ! ! ! 

SAME SET UP? (Y-N) 

? YES 

HUNT THE WUMPUS 

I SMELL A WUMPUS! 
YOU AF^■E IN F^OOM 15 

TUNNELS LEAD TO 6 14 16 

SHOOT OR MOVE ? (S-M) 
? M 

OKAY? WHEF«: TO NOW? 
? 16 

YOU AFs'E IN F^OOM 16 

TUNNELS LEAD TO 15 17 20 

SHOOT OF^ MOME ? <S-M) 
? M 

OKAY? WHEF;;E TO NOW? 
? 15 

I SMELL A WUMPUS! 
YOU AF«: IN F^OOM 15 

TUNNELS LEAD TO 6 14 16 

SHOOT OF? MOME ? (S-M) 
? 14 

SHOOT OR MOME ? (S-M) 
? M 

OKAY» WHEF^E TO NOW? 
? 14 

DUMMY? YOU BUMPED INTO A WUMPUS!! 

I SMELL A WUMF'US ! 

BATS NEAF^BY 

YOU ARE IN ROOM 14 

TUNNELS LEAD TO 4 13 15 

SHOOT OR MOME ? (S-M) 
? S 

NUMBER OF ROOMS? (1-5) 
? 2 

ROOM #? 4 
ROOM- #? 13 

AHA I YOU GOT THE WUMPUS! 

OKAY HOT SHOT? THE WUMPII WILL GET THEIR REVENGE 
WUMPII SPIRITS WILL HAUNT YOU 'TILL THEN 
SAME SET UP? (Y-N) 
? NO 

HUNT THE WUMPUS 



I SMELL A WUMPUS! 
YOU ARE IN ROOM 18 

TUNNELS LEAD TO 9 17 19 

SHOOT OR MOME ? (S-M) 
? S 

NUMBER OF ROOMS? (1-5) 

13 



Program Listing 



10 RtM HUNT THE WUMPUS 

30 PHINf "INSTHUCTIONS? (Y-N)" 
40 INPUI IS 

50 l^ lis'iN" THEN 70 

60 GOSCb 670 

70 DIM b(20,3) 
180 FOR j=l To 20 
(90 FOR Kxl To 3 
inO WEAO S(J,K) 
110 NtXl K 
120 NEXT J 

130 DATA 2tS.a.lt3.in.2,4,l?t3tS.l'.,l,<.,6 

1^.0 DATA 5.7.15t6i8.17.1.7.9t8,l(),l8,?,9.11 

150 DATA 10,l?,19,3,n.l3.1?.14,20t'«,U.15»6.1'i,lft 

160 OflTA 15.l7.20.7,16,18,9,17,14,li,lH,?0.13tl6,19 

170 DEF f'NACXjsINT (20»HNO(0) ♦!) 

leO DEF FNR (X)=IN1 (3»NNU (0) ♦!) 

190 DEF FNC (X)=IN r (4eHNU (0) ♦ 1) 

200 kEM locate L array items 

210 HEM l=Y0U,2 = iiiUMPUSi344 = Pns.5«.e5 = PAIS 

220 niM L(6) 

230 DIM M(6) 

240 FOH j= 1 TO 6 

?50 L ( J) =FNA (0) 

260 M ( J) = L ( jj 

270 NExr J 

?P0 HEM CHECK FOh CWOSSUVFHS 

290 FOP J=l To 6 

300 FOR K=J To 6 

310 IF J=K Thfn 330 

320 If LU) = L(K) Then 24U 

330 MEXI K 

340 NfcXl J 

350 REM SET ARHOWb 

36 A=5 

370 L=L(i) 

380 HEM hun The game 

390 HKINI "HUNT The WbMPUS" 

40U PHTM't--- — _M 

410 REM HAZARD WAkNIMGS AND LOCATIONS 

420 GO Sub 1090 

i430 REM MOVE OP SHOOT 

1440 GO Sub 1280 

■450 IF = 1 THEN 470 

460 IF C = 2 THEN 510 

470 GO SUH 1370 

4P0 IF f=0 THEN 420 

490 GO Tu 530 

500 REM MOVE 

510 GO SUB asflo 

520 IF FsO THFN 420 

530 IF F>0 THEN 580 

540 REM LOSE 

550 PRINT"DIjMmY. YOU LOSE» WUMPII JUST LOVE YOUIIl" 

560 GO To 600 

570 REM *IN 

580 PHINT"OKAY HOT SHOT, THE hUMPlI WILL GET THEIR REVENGE" 

590 PHINT"wyMPII SPIRITS WILL HAUN [ YOU 'IILL THEN" 

600 FOR jal To 6 

610 L(J)*M(J) 

■620 NEXT J 

■630 PRINI "SAME SET UP? (Y-N)" 

640 INPUT IS 

650 IF Ii<>"Y" THEN 240 

660 GO To 360 

670 REM INSTRUCTIONS 

680 PRINI "WELCOME TO 'HUNT THF WUMPUS'" 

690 PRINT " THE wUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM" 

700 PRINI "HAS 3 TUNNELS LEADING INTO OTHER ROOMS. (LOOK AT A" 

710 PRIM"OLOnECAHE0RON TO SEE HOW IHIS WORKS -IF YOU DON • T KNOW" 

720 PRIM "WHAT A DUODECAHEDRON ISf ASK SOMEONE)" 
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730 
740 
750 

'760 
770 

7ao 

790 
800 
810 
HZQ 
830 
B40 
S50 
860 
H70 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
9P0 
990 
1 000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
142U 
1430 
1440 
1450 
1460 
1470 
1480 



PHINl" HflZAHOS " 

PNINT"80TT0MLtSS HITS, THERE ANt 2 OF THESE" 
PHINt"F*LL INlO ONE* AND YOU wlLl LAND IN CHINA" 
PHINT" SUPE« HATS - TwO OTHEH NOOMS HAVE SUPEH bATS. IF YOU" 



PHINT " 
PNIM " 
PHIN ( 
PKIM" 
PHIM " 
PhIM " 
PHIN r 



GO THFNE, A BAT GNABSVOU AND TAKES YOU TO SOME OTHEH" 
WnOM AT HANOOM. (WHICH MIGHT 8E TkOUfcJLESOME ) " 



YOU " 

EACH TURN YOU MAY MOVE OP SHOCT A ChOOKED AHROW" 
MOVING YOU CAN r,n ONE ROOM (THHU ONE TCNNEU)" 
AkHOWS YOU HAVE 5 ANKOWS. YOU LOSE WHEN YOU HUN OUT." 
EACH ARROW CAN GO FHUI- 1 TO 5 NOOCS. YOU AIM BY TELLING" 
THE COMPUIEH THE HOOM/S TOU WANT THE ARniOw TO GO TO." 
IF THE ARROW CAN'T GO THAT WAY <IE NO TUNNFL) IT MOVES" 
AT HANPOM TO THE NEXT ROUM." 
IF THF ARROW HITS THE WUMPLS. YOU WIN." 
If THF ARROW HITS YUU, YOU LOSE." 

WARNINGS " 

*HEN YOU ARE ONF ROOMS AWAY FROM THE wUMPUS OR HAZARD." 
THE COMPUTER SAYS " 
viUMPllS - 'I SMELL A WUMPUS'" 
BAT - 'BAIS NEARBY'" 
PIT - •! FEEL A DRAFt'" 



The WUMPUS IS NOT BOThEkFD by THE HAZARDS (HE HAS SUCKER" 
FEET AND IS TOO 8IG FOR A 8AT fO LIFT). USUALLY" 
HF IS ASLEEP. fwO THINGS wAKF HIM UP. YOUR ENTERING" 
p^\Z\ .1 NTS ROOM OR YOUR SHOOTING AN ARROW." 

PRINI " IF THF WUMPUS WAKES. HE MOVES (P=.75) ONE ROOM" 

PRINr " OR STAYS STILL (P=.2b). AFTER THAT, IF HE IS WHERE YOU" 
PRINI " ARE, HF FATS YOU UP ( YOU LOSE!)" 
PhIM 
PRINT 
PRINT 
PHINT 
PRINT 
PHIN r 

PNIN r 

PRINT 
PRINT 
PRIN I 
PHIN I 
PRiN [ 
PRINI 
PRIN I 
PRINT 
PHINl 
PRINT 
PRIM 
PRIM " " 
RETURN 

REM PRINT LOCATION AND HAZARD «APNIN6S 
PRINT 

FOR J*d In 6 
FOR K=l To 3 

IF S(L(1),K) <>L(J) THEN 1220 
IF Js2 THEN 1170 
IF J=3 OR J«4 THFN 1190 
IF J=5 OH J«6 THFN 1210 
PRINT "I SMELL A WUMPUS!" 
GO Tu 1220 

PRIM "I FEEL A nRAFT!" 
60 To 1220 
PRINT"eATS NEARBY" 
NEXT K 
NEXT J 

PRiN r 
PKiN r 

PRINT 
HtTLNN 

HEM CHOOSE OPTION 
PKiNi "SHOOT OR MOVE 
INPU! U 
IF IS><>"S" THEN 
0=1 

RETURN 

IF IS<>"Mii THEN 1290 
= 2 

RETURN 

HEM ARROW ROUTINE 
F = 

HEM PATH OF AhROW 
DIM P(5) 

PRIM "NUMBER OF HOUMS? (1-=^)" 
InPUI J9 

TF J«i<l OR JSi>5 THEN 1410 
FOR K=l To J9 
PRINT "ROOM #"t 
INPUT P(K) 
IF K<«2 THEN 1510 
IF P(K)<> P(K-2) THEN 01510 



•YOU ARE IN ROOM 
"TUNNELS LEAD TO 



1340 



iL (1 ) 

;S(L.l) .S(L.2) .S(L.3) 



(S-M) " 
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1490 PHINfAHHoWS ARF NOT SUPER MAGIC. BE HEALISTIC" 
1500 GO To 14S0 t«Li3lil. 

1510 NfcXT K 

1520 HEM bHOOT AHRUW 

1530 L=L(1) 

1560 rOH K»l To J9 

1550 FOR Kl » 1 TO 3 

1560 IF S(L.K1)bP(k! then 1720 

1570 NEXT Kl 

1580 HEM NO TUNNEL FO" AHROW 

1590 L=S(L«FN8(1) ) 

1600 GO Tu ni?) 

1610 NEXT K 

1620 PHIM "MISSED" 

1630 L=L(1) 

1640 HEM MOVE WUMPUS 

1650 60 SUB IPOO 

1660 HEM AMMO CHECK 

1670 A » A-1 

1680 IF A>0 THEN 1700 

1690 F=-l 

1700 HETUNN 

1710 HEM SEE IF ARHO* IS AT L(l) OH L(2) 

1720 L«P(K) 

1730 IF L<>L(2) THEN 1770 

1740 PHINI "AHA! YOU GOT THE ••UMPUS!" 

1750 F 3 1 

1760 HETUhN 

1770 IF L<>L(1) THEN 1610 

1780 PNIM "OUCHIll ARHO* GOT YOUI" 

1790 GO Tu 1690 

1800 HEM - MOVE nUMPUS ROUTINE 

1810 KsFNC(l) 

1820 IF K=4 IHFN 1840 

1830 L(2)=S(L (2) fK> 

1840 IF L(2!<>L THEN 1870 

1850 PHlM"wUMRUb GOT YAI!1, UtMMY!!!" 

1860 F = -1 

1870 HETtKN 

1880 HEM MOVE ROUTINE 

1890 F=0 

1900 PKIM"0KAY. WHERE TO NOw?" 

1910 INPUT t 

1920 IF L<1 OH L>20 THEN 19nu 

1930 FOR K=l TO 3 

1940 HEM CHECK IF LEGAt HOVE 

1950 IF S(L(l),K)sL THEN 201U 

1960 NEXT K 

1970 IF L=L(1) THEN ?01U 

1980 PhINP'AhE YOL for HEAL. IHAT'S NOT POSSIBLE" 

1990 GO To 1900 

2000 HEM CHECK FOR HAZARDS 

2010 L(1)=L 

2020 HEM «UMPUS 

2030 If- L<>L!2) THEN 2100 

2040 PRINi"()UMMY, YOU BUMPED INTO A wUMPUSl!" 

2050 HEM - MOVE WUMPUS 

2060 GO Sub IfllO 

2070 IF F = Thfn <ilon 

2080 HETUkN 

2090 HEM - PIT 

2100 IK L<>L!3! ANU L<>L(4i Ih£n 21'50 

2110 PHIM"A PIT. CHINA HFHF I COME ll!!!!!" 

2120 F=-l 

2130 HETUHN 

2140 HEM - BATS 

2150 IF L<>L(5) ANU L<>L(6) 1"EN 2190 

2160 PHlNT"SUPFH-eATS! I ! GOOD-LUCK ! I ! ! ! I I " 

2170 L=FNA(1) 

2180 GO Tu 2010 

2190 HETUHN 

2200 END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 183 in Section II. 
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SUB HUNT 

This game pits you against a nuclear enemy sub lurking in 
nearby seas. The area of conflict is a 10 x 10 unit grid, and the 
enemy can dive down to a depth of 10 units. Figure 1-1 helps you 
visualize the playing area. 

Your mission is to destroy the sub. You have a limited number 
of depth charges. This number changes from game to game, but you 
always will have at least 16. 

To destroy the sub, you must place the charge not only on the 
right coordinate but also fused for the right depth. 




INITIALIZE 
VARIABLES 



I 

INPUT SHIP'S MOVE 



INPUT DEPTH CHARGE 



UPDATE SUB 
POSITION 



NO-CHARGE 
MESSAGE 



WINNING 
MESSAGE 




Flowchart for Sub Hunt 
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Sample Run 

RUN 

SUB HUNT 

UELCOflE TO THE GAflE OF SUB HUNT 
THE ENEriY SUB MAY BE LURKING 
ANYWHERE WITHIN THE GRID- 

TO COMPLICATE FINDING IT AND 

DESTROYING IT WITH DEPTH CHARGES-. 

THE SUB CAN ALSO DIVE- 

DEPTH CHARGES HAY BE DROPPED 

ANYWHERE ON THE GRID-, BUT 

THEY ARE NOT EFFECTIVE UNLESS 

THEY HAVE BEEN SET FOR THE RIGHT 

DEPTH. 

SINCE THE SUB CAN DIVE TO THE SEA 
BOTTOn-, SO CAN DEPTH CHARGES BE 
SET FOR THIS DEPTH-, ID IS THE SEA 
BOTTOM-, WHILE 1 IS THE SURFACE OF 
THE SEA. 

THE SUB'S POSITION WILL BE UPDATED 
AFTER EACH MOVE-, AS IT WAITS TO SEE 
WHAT YOUR MOVE IS- 

THE SUB-, BEING NUCLEAR POWERED CAN 
STAY AT ANY DEPTH-, FOR ANY PERIOD OF 
TIME. 

TO DESTROY THE SUB-i YOU MUST 
DROP THE DEPTH CHARGE NOT ONLY AT 
THE RIGHT COORDINATE-, BUT IT MUST 
BE FUSED FOR THE RIGHT DEPTH. 
IF NOT-, YOU HAVE WASTED A DEPTH 
CHARGE. 

YOU HAVE A DISADVANTAGE AND AN 



ADVANTAGE OVER THE SUB. 
THE DISADVANTAGE IS YOU'RE LIMITED 
TO THE NUMBER OF DEPTH CHARGES 
YOU HAVE-, SINCE YOU HAVE BEEN AT 
SEA SO LONG. 

THE ADVANTAGE IS THAT THE SUB CAN MOVE 
ONLY ONE SflUARE AT A TIME, AND ALSO 
IT CAN HOVE ONLY UP OR DOUN IN DEPTH 
ONE COORDINATE AT A TIME. 
GOOD LUCK-, COnilANDER. 

YOU-, COnriANDER-, ARE AT COORDINATES lil 
COnflANDER-, WHERE DO UE SAIL FOR 
f S-,S 

COnriANDER-, lilHAT SETTING FOR DEPTH 
CHARGES A SETTING OF D RELEASES NO 
CHARGES 
f S 

NELSON WOULD BE PROUD OF YOU 

YOU GOT THE DEVIL SUB. . . 

YOU STILL HAVE 1 DEPTH CHARGES 

TO PLAY AGAIN TYPE 1-, OTHERWISE 

?D 

THE COMPUTER KNEU YOU UERE A LANDLUB- 
BER. 

RUN COMPLETE. 
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Program Listing 

ID REM THE GAME OF SUB HUNT 
2D REM THE SUB HUNT IS PLAYED 
3D REM ON A ID X ID GRID WITH 
MD REM THE ORIGIN ON THE LEFT 
SD REM TOP CORNER. 
bD REM THE X AXIS READS FROM 
7D REn 1 TO ID GOING LEFT TO 
&0 REfl RIGHT-, THE Y AXIS READS 
TD REM FROM 1 TO ID GOING 
lOD REM TOP TO BOTTOfl-, THEREFORE 
IID REfl COORDINATE IDilD IS THE RIGHT 
lED REM LOWER CORNER OF THE GRID 
13D REM SUBS ARE CRAFTY, UATCH THEfl 
mD REfl CAREFULLY 
ISD PRINT 

ILD PRINT ' 'SUB HUNT' ' 
17D PRINT 
IflO PRINT 

IID PRINT "UELCOnE TO THE GAME OF 

SUB HUNT" 
5DD PRINT 

51D PRINT "THE ENEMY SUB MAY BE 
LURKING" 

22D PRINT "ANYWHERE WITHIN THE GRID-' 
23D PRINT "TO COMPLICATE FINDING IT 
AND" 

EHQ PRINT "DESTROYING IT WITH DEPTH 
CHARGES-," 



ESQ PRINT "THE SUB CAN ALSO DIVE." 
2b0 PRINT "DEPTH CHARGES HAY BE, 

DROPPED" 
270 PRINT "ANYWHERE ON THE GRID-, 

BUT" 

EflD PRINT "THEY ARE NOT EFFECTIVE 
UNLESS" 

ETO PRINT "THEY HAVE BEEN SET FOR 

THE RIGHT" 
30D PRINT "DEPTH." 

31D PRINT "SINCE THE SUB CAN DIVE TO 

THE SEA" 
3ED PRINT "BOTTOM-, SO CAN DEPTH 

CHARGES BE" 
330 PRINT "SET FOR THIS DEPTH-, ID IS 

THE SEA" 

3MD PRINT "BOTTOM-, WHILE 1 IS THE 

SURFACE OF" 
3SD PRINT "THE SEA. ' ' 
3b0 PRINT "THE SUB'S POSITION WILL 

BE UPDATED" 
37D PRINT "AFTER EACH MOVE-, AS IT 

WAITS TO SEE" 

3fi0 PRINT "WHAT YOUR MOVE IS." 

31D PRINT "THE SUB, BEING NUCLEAR 

POWERED-, CAN" 
^□D PRINT "STAY AT ANY DEPTH-, FOR 

ANY PERIOD OF' ' 

mo PRINT "TIME." 

MED PRINT "TO DESTROY THE SUB, YOU 
MUST" 
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H3D PRINT "DROP THE DEPTH CHARGE NOT 
ONLY AT" 

44D PRINT "THE RIGHT COORDINATES-, 

BUT IT MUST" 
450 PRINT "BE . FUSED FOR THE RIGHT 

DEPTH. • ' 

4bD PRINT "IF NOT, YOU HAVE WASTED A 

DEPTH. • ' 
470 PRINT "CHARGE." 
4aD PRINT "YOU HAVE A DISADVANTAGE 

AND AN" 

4'=!0 PRINT "ADVANTAGE OVER THE SUB." 
500 PRINT "THE DISADVANTAGE IS 

YOU'RE LiniTED" 
510 PRINT "TO THE NUMBER OF DEPTH 

CHARGES" 

550 PRINT "YOU HAVE-, SINCE YOU HAVE 

BEEN AT" 
530 PRINT "SEA SO LONG. ' • 
540 PRINT "THE ADVANTAGE IS THAT THE 

SUB CAN HOVE' • 
550 PRINT "DNLY ONE S£3UARE AT A TlflE, 

AND ALSO' ' 
ShQ PRINT "IT CAN MOVE ONLY UP OR 

DOWN IN DEPTH" 
S70 PRINT "ONE COORDINATE AT A TIME." 
SaO REM AMOUNT OF DEPTH CHARGES 
STD CI = INTiRNDCDJ * 11} + lb 
bOO PRINT "GOOD LUCK-, COMMANDER." 
t.10 PRINT 



t,5D PRINT "YOU-, COriMANDER-, ARE AT 

COORDINATES lil" 

b30 PRINT 

fe.HD REn SET UP POSITION FOR SUB 

bSD A = INT-CRND-CO} * 10> + 1 

btO B = INT{RN])£D> * 10> + 1 

t.7D D = INT-CRNDCO> * 10} + 1 

bflO REn A IS THE X AXIS 

bTD REn B IS THE Y AXIS 

7DD RE,n D IS THE DEPTH 

71D REn SHIP'S STARTING COORDINATES 

730 XI = 1 

730 Yl = 1 

7HD REn GET SHIP'S nOVE 

7SD PRINT 

7bD PRINT "COnnANDERn WHERE DO UE 

SAIL FOR" 

770 INPUT XtY 

7a0 REn TEST THAT X-,Y ARE NOT OUT OF 
BOUNDS 

7T0 IF X > ID OR X < 1 THEN 850 

aOO IF Y > ID OR Y < 1 THEN flED 

fllO GOTO &HQ 

flED PRINT "COnnANDERi STAY WITHIN 

THE GRID" 
fl3D GOTO 7SD 

fiHD XI = X 

flSO Yl = Y 

fibO PRINT 

570 PRINT "COnnANDER-, WHAT SETTING 
FOR DEPTH CHARGES" 
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aaO PRINT "A SETTING OF RELEASES 

NO CHARGES. ' ' 
a^D INPUT C 
TDD IF C = D THEN TbD 
TID IF C > ID OR C < 1 THEN T3D 
T2D GOTO IMBD 

13D PRINT "COtinANDERi THE SUB IS IN 

THE UATER" 
TMD PRINT "NEITHER ABOVE THE SURFACE-, 

NOR BELOy THE BOTTOM' • 
TSD GOTO abD 
ItD PRINT 

T7D PRINT "THE SUB IS AT CO- 
ORDINATES:— • ' 
laD PRINT "X = "^ Ai "Y = "i B 
TTD PRINT "AND AT A DEPTH OF " D 
IDDD REn NEW SUB POSITION 
lOlD Al = INTCRNDCD> * 5> 
1D5D Bl = INT{RNDCD> * e> 
1D3D Dl = INTCRNDCDJ * 5} 
IDMD REM CHECK FOR PROPER MOVE 
IDSD REM GET NEGATIVE OR POSITIVE 
MOVE 

IDbD ai = INTCRND<D> * 53- 
1D7D (Sa = INTCRNDfD} * 2> 
IDaa (33 = INT{RND€D> * 5> 
IDTD IF (Jl = 1 THEN 115D 
HDD (31 = -1 
HID GOTO 113D 
llED (31 = 1 



1130 IF (35 = 1 THEN llbO 

imO (32 = -1 

USD GOTO 117D 

llbD fl2 = 1 

1170 IF (33 = 1 THEN 1200 

liaO 03 = -1 

inO GOTO 1210 

1200 (33 = 1 

1210 IF A + CAl * (31} > 10 OR A + -CAl 

* £31} < 1 THEN 12M0 
1220 A = A + {Al * 131} 
1230 GOTO 12fl0 

12M0 IF A + -CAl * (31} > 10 THEN 1270 

1250 A = 1 

12b0 GOTO 12fl0 

1270 A = T 

12fi0 IF B + {Bl * (32} > 10 OR B + CBl 

* 131} < 1 THEN 1310 
12T0 B = B + -CBl * (32} 
1300 GOTO 13S0 

1310 IF B + {Bl * (22} > 10 THEN 13M0 

1320 B = 1 

1330 GOTO 13S0 

1340 B = T 

13S0 IF I> + {Dl * (33} > 10 OR D + D 

■CDl * (33} < 1 THEN 1380 

13LD D = » + {Dl * (33} 

1370 GOTO m20 

13a0 IF D + {Dl * (33} > 10 THEN IHIO 

13=10 D = 1 
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moo GOTO mao 
mio D = T 

mZQ GOTO 750 

m3D IF X = A AND Y = B AND C = D 

THEN ItiBO 
IMHD PRINT 

mSD PRINT "SORRYn COnhANDER-i UE 
HAVE niSSED" 

mbo CI = CI - 1 

m=iD IF CI >0 THEN ^bO 
1500 PRINT 

1510 PRINT "SORRY-. COflllANDER-, NO 
nORE DEPTH CHARGES" 

1550 PRINT "UE CANNOT GET Hill WITH- 
OUT CHARGES" 

1530 PRINT 

ISMO PRINT "TO PLAY AGAIN TYPE 1, 

OTHERyiSE 0" 
1550 INPUT L 
15bO IF L = 1 THEN IblO 
1570 PRINT 

15fiO PRINT "THE COMPUTER KNEU YOU 

yERE A" 
1510 PRINT "LANDLUBBER..." 
ILOO STOP 

lt.10 PRINT 
IbSO GOTO 5flD 
lb30 PRINT 

IhHQ PRINT "NELSON WOULD BE PROUD 
OF YOU" 



IbSO PRINT "YOU GOT THE DEVIL SUB." 
IbtO PRINT "YOU STILL HAVE ' ' •■, Clh 

"DEPTH CHARGES" 
lb70 GOTO 1S30 
IbfiD END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 188 in Section 11. 
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SINK THE BISMARK 

This is an exciting chase game with many messages from the 
computer to the captain. 

Both vessels can fire at each other. Your mission is to sink the 
enemy before the enemy sinks you. As you get closer, the damage 
done by the high explosive shells becomes more pronounced. 

Caution: the number of shells available for either ship is limited. 
The number of shells is picked at random by the computer, yet there 
is always a minimum of 20 shells initially available to each ship. 




GO HOME 


NO 


I NO 


GO HOME 


MESSAGE 






MESSAGE 



VICTORY 
MESSAGE 




VICTORY 
MESSAGE 




Flowchart for Sink the Bismark 

SHELL 




ENEMY 



COMMANDER'S 
VESSEL 



Fig. 1 -2 — As the distance between vessels becomes closer, the effectiveness of 
the high-explosive shells increases. 
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INSTRUCTIONS ARE: — 

THIS IS THE GAI1E OF SINK THE BISMARK 
BOTH YOUR VESSEL AND THAT 
OF THE ENEMY HAVE HIGH 
EXPLOSIVE SHELLS. 

YOUR MISSION IS TO SINK THE ENEMY 
VESSEL BEFORE IT CAN SINK 
YOUR VESSEL. 

THE NUMBER OF SHELLS AVAILABLE 

FOR BOTH YOU AND THE ENEMY ARE 

RANDOM-, BUT BOTH VESSELS HAVE A 

MINIMUM OF 50 SHELLS EACH. 

SHELLS ARE LESS EFFECTIVE AT LARGER 

DISTANCES. 

THE PRESENT DISTANCE IS NOy ISQO 
WHAT IS YOUR COMMANDi MOVE OR SHOOT 
ENTER M OR S 
f M 

SORRYt commander-, YOU HAVE NO MORE 
SHELLS-, YOU BETTER RETREAT TO PORT-, 
NEXT TIME-, BE CAREFUL WITH YOUR FIRE 
POyER. . 

TO TRY AGAIN AND BE MORE 

WATCHFUL THIS TIME 

TYPE L TO TRY AGAIN-, D TO STOP 

?D 

I GUESS YOU'RE NOT READY TO 
TRY AGAINi COMMANDER. • 
UELL MAYBE NEXT TIME.. 
RUN COMPLETE. 
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Pribram Listing 

10 REM THIS PROGRAM PITS TUO 

DESTROYERS 
50 REM AGAINST EACH OTHER 
30 REM ONE VESSEL IS UNDER YOUR 

COMMAND 

MD REM THE OTHER IS UNDER COMPUTER 
CONTROL 

SO REM TO EVEN THE ODDS-, THE COMPUTER 
MUST 

bO REM USE RANDOM VARIABLES OR ELSE 
THE CONTEST 

70 REM WOULD DEFINITELY BE BIASED TO- 
WARDS THE 

aO REM COMPUTER. 

TO REM INITIALIZE VARIABLES 
100 REM ESTABLISH DISTANCE AT START 
OF GAME 

110 D = 1000 + INTCRND{0} * 5000> 
120 REM ESTABLISH NUMBER OF SHOTS 

AVAILABLE 
130 REM TO THE ENEMY 
mo S = INT{RNDCO> * 55} + 20 
ISO REM ESTABLISH NUMBER OF SHOTS 

AVAILABLE TO 
IbO REM TO YOUR VESSEL 
170 SI = INTCRNDCO> * 25} + 20 
lao V = 
no E = 
200 PRINT 



21D 


PRINT 


TAB -C?}^ "DESTROYER" 


aao 


PRINT 


TAB -C7}i " 


230 


PRINT 




ZHQ 


PRINT 




2S0 


PRINT 


"INSTRUCTIONS ARE:— ' • 


EbQ 


PRINT 




270 


PRINT 


"THIS IS THE GAME OF SINK 




THE BISriARK" 


EflD 


PRINT 


"BOTH YOUR VESSEL AND 




THAT" 




2TD 


PRINT 


' 'OF THE ENEIIY HAVE HIGH" 


300 


PRINT 


"EXPLOSIVE SHELLS. ' ' 


310 


PRINT 


"YOUR MISSION IS TO SINK 




THE ENEIIY" 


320 


PRINT 


"VESSEL BEFORE IT CAN 




SINK' 




330 


PRINT 


"YOUR VESSEL. ' ' 


3HD 


PRINT 


"THE NUriBER OF SHELLS 



AVAILABLE' ' 
3S0 PRINT "FOR BOTH YOU AND THE 

ENEIIY ARE" 
3b0 PRINT "RAND0I1-, BUT BOTH VESSELS 



HAVE A" 

370 PRINT "niNinun of 20 SHELLS 
EACH" 

3a0 PRINT "SHELLS ARE LESS EFFECTIVE 

AT LARGE DISTANCES- ' ' 
3=10 PRINT 

MOO PRINT "THE PRESENT DISTANCE IS 
NOy'iD 
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mo PRINT 

MEO PRINT "WHAT IS YOUR COflMAND-, 

nOVE OR SHOOT" 

430 PRINT "ENTER M OR S" 

INPUT C$ 

H5Q IF C$ = "fl" THEN SOD 

MbO IF C$ = "S" THEN ia3D 

H7D PRINT 

Mao PRINT "YOUR cohiiand must be 

EITHER S OR n" 

M=io GOTO mo 

SOO PRINT 

SIO PRINT "HOU FAR { - = TOWARDS-, 

= AUAY>" 

SEO INPUT Dl 

S3D IF D1/ABS{D1} = 1 THEN SbO 

5HQ !) = ])- ABS€D1> 

SSO GOTO S?D 

StO D = D + Dl 

S70 REM GET ENEI1Y SHOT 

S80 S = S - 1 

S=1D IF S < D THEN 

bOD REM (3 IS TEMPORARY VARIABLE 

blD a = RNDCIDI 

b20 (3 = (3 - CD / SOD} 

b3D (3 = ABSC133- 

bMO V = d3 + V 

bSD IF V > = 100 THEN ISID 

bbO IF V > 10 AND V < 21 THEN 710 

b70 IF V > 20 AND V < 31 THEN fl30 



bflO 11- V > dU AND V < HJi THLN 6fU 

b=10 IF V > MO AND V < SI THEN lEQ 

700 IF V > bO AND V < 71 THEN ^bD 

710 IF V > to AND V < 71 THEN IDID 

7ED IF V > 70 AND V < fll THEN lOLO 

730 IF V > flO AND V < 11 THEN ISDO 

7MD IF V > TO AND V < 100 THEN lESO 

750 PRINT 





OPTMT t'TUr TMCMV UA^ MA hi AMI V''" 
HlNxNI Int. t-NLIlT MAi IMvUI vNLT i 




p«. IfCLiETI 1 ^1* 

St SHLLLS 


770 


nDTMT f IVAIID ur^CCI UAC KIAI.i AMI V 

PRINT YOUK vLSiLL rlAii Nyiil ONLY 




' T SIt SHLLLS 


730 


GOTO 3t0 


7T0 


n D T MT 

PRINT 


fiOO 


nDTMT lirAllTTAM VAIIIPT TAKTMT AM 
PKINI LAUiIvNt YUU Kt. 1 AkINu UIM 




ulATLR 


filO 


nDTMT 1 f MA CfDTAIlC 1\AMA/"C" VTTf t 

PRINT NO SLKiOUi UAPIAbt Yt 1 


fiEO 


/"ATA T C n 

GOTO fbu 


fl3D 


PRiN 1 


A u n 


PRTWT ''THFf?F ARE A FFIil "^MALL 




r XKLS 


O 3U 


DRTMT ''RIIT THFY ARF IIMBFR 




rAMTRAI ' • 
\. V IM 1 l\ V l_ 


abo 


GOTO 7S0 


fl70 


PRINT 


&&U 


PRINT "YOU ARE LISTING TO PORT 




S DEGREES" 


a^o 


PRINT "WATER LEVEL IS STILL NOT 




DANGEROUS" 


100 


PRINT "CAUTION-, FIRES ARE 




SPREADING" 
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TIO GOTO 7S0 
TED PRINT 

T3D PRINT "ENGINES ARE OVERHEATING 
AND ' • 

TMD PRINT "THE BILGE PUHPS ARE ACT- 
ING UP" 
TSa GOT 7S0 
TtO PRINT 

T70 PRINT "MOST OF YOUR CREU IS" 
TflD PRINT "SERIOUSLY HURT-, THE FIRES 
ARE" 

TTD PRINT "APPROACHING THE POUDER 
ROOM" 
IDOO GOTO 750 
IDID PRINT 

IDEO PRINT "THE LIFE BOATS ARE BEING 
READIED" 

1D3D PRINT "SnOKE FILLS MOST OF THE 

CORRIDORS" 
1D4D PRINT "BILGE PUMPS ARE NEAR 

FAILURE" 
lOSD GOTO 7SD 
IDbD PRINT 

1070 PRINT "YOUR CREU IS ABANDONING 
SHIP" 

IDfiO PRINT "THE BILGE PUMPS HAVE 
STOPPED' ' 

lOTD PRINT "ONE ENGINE HAS BURNED 

OUT" 
HDD GOTO 7SD 



liOD PRINT 

1210 PRINT "THE SHIP IS BURNING-, 

YOU HAVE" 
1520 PRINT "PLACED THE SHIP ON 

AUTOMATIC" 
1530 PRINT "YOU ARE LOSING 

STABILITY-i COnriANDER" 
15MD GOTO ?SD 
1550 PRINT 

12b0 PRINT "YOUR SHIP IS BADLY 

DESTROYED-, THERE" 
1570 PRINT "IS LITTLE HOPE, 

COntlANDER. . • ' 
15fl0 GOTO 7SD 
15T0 PRINT 

1300 PRINT "THE ENEMY IS RETREAT- 
ING-. • ' 

1310 PRINT "YOU HAVE UON THIS 

BATTLE" 
1350 PRINT 

1330 PRINT "COHflANDERi YOU HAVE 

UON UITH"-T SI 
13M0 PRINT "SHELLS LEFT ON YOUR 

VESSEL" 
13S0 PRINT 

13b0 PRINT "SINCE YOU ARE SUCH 

A GREAT COnilANDER" 
1370 PRINT "THE C0I1PUTER WANTS TO 

KNOU IF YOU" 
13flO PRINT "UANT TO FIGHT AGAIN." 
1310 PRINT 
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moo PRINT "TO HAVE ANOTHER BATTLE 

TYPE 1' ' 
miO PRINT •'IF NOT TYPE 0" 
mSD INPUT L 
m30 IF L = 1 THEN 110 
IMMO PRINT 

mSO PRINT "OKAY GIVE UP UHILE YOU 

ARE AHEAD" 
mbO PRINT 

m70 PRINT "THE COMPUTER SAYS 
GOODBYE" 

mSD PRINT "THE ENEdY SAYS GOODBYE 
FROn' ' 

m^D PRINT "DAVY JONES LOCKER" 
ISDO STOP 
ISID PRINT 

1S2D PRINT "YOUR VESSEL IS GOING 
DObJN' ' 

1S3D PRINT "YOU BETTER GET INTO THE 

LIFE BOAT" 
ISMO PRINT "HURRY-, CAPTAIN-. IF YOU 

ARE" 

ISSO PRINT "GOING TO HAKE IT.." 
ISbO PRINT 

1S7D PRINT "YOU LOST THIS TinE-, DO 

YOU yANT" 
ISflO PRINT "TO TRY AGAIN-, 

COnilANDER?" 
ISTD PRINT 

IbOD PRINT "TYPE 1 TO TRY AGAIN-, 
TO STOP' ' 



"linn 


T M n 1 1 T 1 


1710 


IF L = 1 THEN 1770 


i7eD 


PRINT 


173D 


PRINT "I GUESS YOU ARE NOT 




WILLING. . • • 


17HD 


PRINT "yHO KNOUSi PERHAPS YOU 




COULD HAVE' ' 


17SD 


PRINT ''yON IF YOU HAD TRIED..' 


17bD 


STOP 


177D 


PRINT 


i7ao 


PRINT "THE COMPUTER IS HAPPYi 




YOU ARE" 


1710 


PRINT "OF THE FIGHTING TYPE" 


IfiDD 


PRINT "BETTER LUCK NEXT TItlEi 




COnriANDER. ' ' 


IfllD 


PRINT 


IfiEO 


GOTO 110 


1330 


SI = SI - 1 


IflHD 


IF S 1 < THEN IfibO 


IfiSO 


GOTO 20MD 


IfibO 


PRINT 


1670 


PRINT "STORY-, COtlflANDER YOU 




HAVE NO MORE ' ' 


laao 


PRINT "SHELLSi YOU BETTER RE- 




TREAT TO PORT-i" 


Ifi^O 


PRINT "NEXT TIMEt BE CAREFUL 




UITH YOUR FIRE" 


noo 


PRINT "POyER.." 


nio 


PRINT 


nso 


PRINT "TO TRY AGAIN-i AND BE 




nORE" 
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miQ PRINT "UATCHFUL THIS TII1E. " 
ITMO PRINT "TYPE 1 TO TRY AGAI'Nt D 

TO STOP" 
ITMO INPUT L 
nSO IF L = 1 THEN SDIO 
nbO PRINT 

n70 PRINT "I GUESS YOU'RE NOT 

READY TO" 
naO PRINT "TRY AGAIN-i COtlllANDER. . " 
mo PRINT "UELL-, flAYBE NEXT TIME.." 
2DDD STOP 
SOID PRINT 

2020 PRINT "TRY HARDER THIS TIME 

COMMANDER. ' ' 
2030 GOTO 110 

^o^o rem ta is a temporary variable 

2050 a = RND{1D> 

20bD (3 = (3 - {D / SDOJ 

2070 a = ABSifl} 

20a0 E = (3 + E 

20^0 IF E > = 100 THEN 2230 

2100 IF E > ID AND E < 21 THEN 23TD 

2110 IF E > 20 AND E < 31 THEN 2H3D 

2120 IF E > 30 AND E < m THEN 2MaD 

2130 IF E > MO AND E < SI THEN 2SM0 

2m0 IF E > SO AND E < tl THEN 2560 

2150 IF E > bD AND E < 71 THEN 2b3D 

21L0 IF E > 70 AND E < 81 THEN 2ba0 

2170 IF E > aO AND E < 11 THEN 27HD 

2ia0 IF E > 10 AND E < 100 THEN 2300 



2nD 


PRINT 


E200 


PRINT "THE ENEMY IS TAKING ON 




WATER" 


2510 


PRINT "THERE SEEMS TO BE SOME 




SnOKE" 


2EE0 


GOTO 570 


2230 


PRINT 


22MD 


PRINT "YOU HAVE DESTROYED THE 




ENEMY' • 


22S0 


PRINT "VESSEL. . ' ' 


22yo 


PRINT 


2270 


PRINT "SINCE YOU ARE SO GOOD AT 




THIS" 


22flD 


PRINT "WHY DONT YOU TRY AGAIN" 


22TD 


PRINT "TYPE 1 TO CONTINUE, 




TO STOP" 


23DD 


INPUT L 


2310 


IF L = 1 THEN 23bD 


2320 


PRINT 


2330 


PRINT "GUESS YOU ARE TIRED 




FROM THE" 


23M0 


PRINT "BATTLE-, COMMANDER" 


2350 


STOP 


23L0 


PRINT 


2370 


PRINT "HOPE YOUR LUCK HOLDS 




OUT" 


23fl0 


GOTO 110 


23^0 


PRINT 


2H00 


PRINT "THE ENEMY SHIP IS LOSING 




GROUND. . • • 



ZmO PRINT "ALREADY THERE ARE SHALL 
FIRES" 

^^E0 GOTO S70 

EH30 PRINT 

2HH0 PRINT "LOOKS LIKE SOUE OF THE 
OTHER" 

EMSD PRINT "VESSEL'S CREIil ARE 

LEAVING" 
2MbD PRINT "IN LIFE BOATS. 

COfltlANDER" 
EM70 GOTO S70 
EMfiD PRINT 

EMTO PRINT "COnnANCERn THE RADIO 

ROOn HAS" 
E500 PRINT "PICKED UP COMMUNICATIONS 

FROM' ' 

ESIO PRINT "THE ENEMY-i RADIOING TO 

SAY IT IS" 
E5ED PRINT "TAKING ON WATER 

(3UICKLY. ' » 
SS3D GOTO S70 
SSMO PRINT 

BSSD PRINT "THE ENEMY STILL HAS NO 

SERIOUS DAMAGE" 
ESbO PRINT "BUT SHE SURE IS TAKING 

ON WATER. • • 
SS70 GOTO S7D 
SSflD PRINT 

ESIO PRINT "THE OTHER SHIP SEEMS TO 
HAVE SOME" 



5L0D 


PRINT "FIRES NOUi BUT THEY 




SEEH TO BE" 


5blD 


PRINT "UNDER CONTROL- ' ' 


EbSD 


GOTO 570 


5fc.3D 


PRINT 




PRINT "THE ENEIIY IS LISTING 




SERIOUSLY" 


EbSD 


PRINT "IT CANNOT LAST MUCH 




LONGER. • ' 


ebbO 


PRINT "KEEP IT UP, COtlMANDER . 


2t70 


GOTO 570 


SbflD 


PRINT 


5bTD 


PRINT "COnriANDERi THE ENEMY 




HAS LOST" 


e?OD 


PRINT "ALL nOTIVE POWER" 


ETID 


PRINT "IF lilE KEEP ON SHOOTING 




UE'LL" 


27E0 


PRINT "GET HER. ' ' 


2730 


GOTO 570 


E7MD 


PRINT 


2750 


PRINT "nOST OF THE ENEMY'S 




CREU" 


27bD 


PRINT "HAS LEFT ON LIFE BOATS 


2770 


PRINT "A FEU MORE ACCURATE 




SHOTS" 


2760 


PRINT "AND WE'LL GET HER SUNK 


27T0 


GOTO 570 


2flD0 


PRINT 


2310 


PRINT "SHE CAN'T TAKE MUCH 




MORE-," 
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EflED PRINT "COnnANDER-, IT LOOKS 

LIKE THE" 
aa3D PRINT "ENEMY IS GOING DOUN-, 

PROBABLY" 
S^^D PRINT "TO JOIN DAVY JONES 

LOCKER" 
aaSO GOTO 57D 
aSbD END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 191 in Section II. 
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MOUSE HUNT 

Your object is to squash the obnoxious mouse. You do this by 
hops, but the mouse also can hop away. The size of the hop is 
random, but you can choose the direction. 

The computer also wiU tell you where the mouse is in relation to 
your initial point on a graph where x and y = (f). If you catch 
him— SPLATT!!! goes the mouse. 




Flowchart for Mouse Hunt 



SET UP LOCATIONS 
AND SPEED 



OUTPUT 
MOUSE HOP 



INPUT YOUR 
HOP 




NO 


HOW FAR 




MESSAGE 



ZAPPED MOUSE 
MESSAGE 



OUTPUT NUMBER 
OF TRIES 
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Sample Run 



THIS F'F^OGRAM ALLOWS YOU TO GO ON A HOUSE HUNT 

FDR A MERY OBNOXIOUS MOUSE 

THE MOUSE TRIES TO DO OGE YOU BY HOPF'ING 

RANDOMLY .. , 

YOU CAN CATCH IT BY BEING WHERE THE MUUbL LANDS 

YOU CAN CHANGE DIRECTION TOO 

YOU HAVF- TO GET WITHIN 67 FEET OF THE MOUSE TO n<ETCH' IT 
HOP SIZES DA MOUSE 90 YOUSE 270 

THE COMPUTER SAYS J I WISH YOU GREAT FORTUNE IN YOUR ENDEAVOR 
FROM THE MOUSED DROP DEAD - TURKEY 
FROM THE COMPUTER J KEEP IT CLEAN BOYS 



TRY # 1 

THE MOUSE IS 583,216 FEET AWA> 

AT LOCATION -450 BY ■-3 71 

AND TOOK OFF AT AN ANGLE OF 157 DEGREES 

YOU ARE 

AT LOCATION BY 

OWWW THAT HURTS ■• YOURE NOT EVEN CLOSE 
WHAT DIRECTION DO YOU WISH TO JUMP? 225 

TRY # 2 

THE MOUSE IS 371,368 FEET AWAY 

AT LOCATION •■■■532,845 BY ■■-335,834 

AND TOOK OFF AT AN ANGLE OF 353 DEGREES 

YOU ARE 

AT LOCATION -190,919 BY -190,919 
OWWW THAT HURTS - YOURE NOT EVEN CLOSE 
WHAT DIRECTION DO YOU WISH TO JUMP? 270 

T ' R Y ^ 

THE MOUSE IS 277,179 FEET AWAY 

AT LOCATION -443,516 BY -346,802 

AND TOOK OFF AT AN ANGLE OF 185 DEGREES 

YOU ARE 

AT LOCATION -190,919 BY -460,919 
OWWW THAT HURTS - YOURE NOT EVEN CLOSE 
WHAT DIRECTION DO YOU WISH TO JUMP? 135 

TRY # 4 

THE MOUSE IS 173,4 FEET AWAY 

AT LOCATION -533,174 BY -354,646 

AND TOOK OFF AT AN ANGLE OF 158 DEGREES 

YOU ARE 

AT LOCATION -381,838 BY -270, 

OWWW THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 170 



TRY # 5 

THF MOUSE IS 102,647 FEET AWAY 

AT LOCATION -616,62 BY -320,932 

AND TOOK OFF AT AN ANGLE OF 285 DEGREES 

YOU ARE 

AT LOCATION -647,736 BY -223,115 
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OWWW THAT HURTS YOIJRE NOT EUI;;;N CLOSE 
WHAT DIRECTION DO YOU WISH TO JUMF'? 270 
SPLAT! ! ! ! 
YOU GOT IT 

BOY WHAT A HESS - SQUASHED MOUSE EVERYWHERE 
Y U T K 5 T R I E S T K i: T C H ( U P ) ' THE MOW S F 
WANT TO TRY AGAIN? ( YES/NO ) " YES 

YOU HAVE TO GET WITHIN 314 FEET OF THE MOUSE TO n<ETCH ' IT 
HOP SIZES DA MOUSE 130 YOUSE 260 



THE COMPUTER SAYS? I WISH YOU GREAT FORTUNE IN YOUR ENDEAVOR 
FROM THE MOUSES DROP DEAD TURKEY 
FROM THE COMPUTERS KEEP IT CLEAN BOYS 



TRY # 1 

THE MOUSE IS 614.357 FEET AWAY 

AT LOCATION ■•■■453 BY 415 

AND TOOK OFF AT AN ANGLE OF :k DFGRFFh 

YOU ARE 

AT LOCATION BY 

OWWW THAT HURTS ■■■■ YOURE NOT EVEN CI OSF 
WHAT DIRECTION DO YOU WISH TO JUMP? 135 
SPLAT ! ! ! ! 
YOU GOT IT 

BOY WHAT A MESS ••■■ SQUASHED MOUSE EVERYWHERE 
Y U I K 1 T R I E S T ' K E T C H ( U P ) ' T H E M U S E 
WANT TO TRY AGAIN? ( YES/NO ) ? YES 

YOU HAVE TO GET WITHIN 238 FEET OF THE MOUSE TO 'KETCH' IT 
HOP SIZES DA MOUSE 130 YOUSE 260 



THE COMPUTER SAYSS I WISH YOU GREAT FORTUNE IN YOUR ENDEAVOR 
FROM THE MOUSES DROP DEAD •■- TURKEY 
FROM THE COMPUTERS KEEP' IT CLEAN BOYS 



TRY ■# 1 

THE MOUSE IS 670,343 FEET AWAY 

AT LOCATION ■■■472 BY 476 

AND TOOK OFF AT AN ANGLE OF 160 DEGREES 

YOU ARE 

AT LOCATION BY 

OWWW THAT HURTS ■- YOURE NOT EVEN CLOSE 
WHAT DIRECTIO'N DO YOU WISH TO JUMP? 135 



TRY # 2 

THE MOUSE IS 530,722 FEET AWAY 

AT LOCATION •-594,16 BY 520,463 

AND TOOK OFF AT AN ANGLE OF 144 DFGRFFS 

YOU ARE 

AT LOCATION --133,848 BY 133,848 
OWWW THAT HURTS •••■ YOURE NOT EVEN CLOSE 
WHAT DIRECTION DO YOU WISH TO JUMP? 150 
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TRY # 3 

THE MOUSE IS 405.449 FEET AWAY 

AT LOCATION -699.332 BY 596.875 

AND TOOK OFF AT AN ANGLE OF 204 DEGFJEES 

YOU AFi;E 

AT LOCATION ■•••409.014 BY 313.848 
OWWW THAT HUF^rS •- YOUFiE NOT EUEN CLOSE 
WHAT HI FLECTION DO YOU WISH TO JUHP? 180 

TF^Y # 4 

THE HOUSE IS 274.215 FEET AWAY 

AT LOCATION ■■•■818.093 BY 543.999 

AND TOOK OFF AT AN ANGLE OF 119 DEGREES 

YOU ARE 

AT LOCATION ■■-669.014 BY 313,848 

HISSED AGAIN- BUT PRETTY CLOSE 

WHAT DIRECTION DO YOU WISH TO JUHP? 135 

SPLAT ! ! ! ! 

YOU GOT IT 

BOY WHAT A HESS - SQUASHED HOUSE EVERYWHERE 
Y U T 1-< 4 r R I E S J ' K E r C H ( U P ) T F^l E H U S E 
WANT TO TRY AGAIN? ( YES/NO ) ? NO 



Program Listing 



100 HEM CHANGF A MOUSE 

200 PRIM "This prograh allocs vqu to go om a mouse hunt " 

300 PRINT "FOR A VERY OBNOXIOUS MOUSE " 

400 PHiNT "The mouse tries tc do oge you by mopping " 

500 PRINT "RANDOMLY " 

600 PRINT "YOU CAN CATCH IT BY BEING WHERE THE MOUSE LANDS " 
700 PRINT "YOU CAN CHANGE DIHECTION TOO " 

800 PRINT 

900 T«RNU (0) •lOOO 
1000 T»INT(T) 

1100 PRINT "YOU HAVE TO GET *ITHIN "|Tl " FEET OF THE MOUSE 

TO 'KETCH' IT 
1200 T»T«T 

1300 REM SET UP THE LOCATIONS AND SPEEDS 

1400 REM 10 "KETCH " THE MOUSE 

1500 REM YOU ARE THE FOX 

1600 R1»InT{RN0(0)'»10*.5)»10*50 

1700 R2«(INT(RND(0>»2*.5) ♦n»Nl 

1800 Kl«RND(0) 

1900 K2»RnD(0) 

2000 IF Kl>.5 THEN 2300 

2100 Kl — l 
2200 GOTO 2400 
2300 Kl«l 

2400 IF K2>.5 THEN 2700 
2500 K2«l 

2600 GOTO 2600 

2700 K2—1 

2800 QUINT (RND (0) •400*100) 
2900 Q1»Q1»K1 

3000 Q2«INT (RND (0) •400*100) 
3100 Q2»G2«K2 

3200 IF Q2mQ OR QlmQ THEN 1800 

3300 Q3a0 
3400 Q4>0 

3500 PRINT "HOP SIZES ". "DA MOUSE "IRI. "YOUSE "JR2 
3600 PRINT 

3700 PRIM "The COMPUTER SAYS I iwISH YOU GREAT FORTUNE IN 
YOUR ENDEAVOR " 

3800 PRINT "FROM THE MOUSE DROP DEAD - TURKEY " 

3900 PRINT "FROM THE COMPUTEh KFEP IT CLEAN BOYS " 
4000 PRINT 

4100 Pl«3. 14159254/180 
4200 K3«l 

4300 21» {u3-y 1 ) • (Q3-01 ) ♦ (Q4-Q2) • (U4-W?) 

4400 REM 

4500 REM PRINT A CYCLE 
4600 REM 
4700 PRINI 

4800 PNIM "TRY « ",K3 

4900 PRIM "The MOUSE IS "ISUR(ZI)} " FEET AwAY " 

5000 PRINT "AT LOCATION "tWH " 8Y "tQ2 

5100 D1»InT(RNO(0)»359) 
5200 IF 2l<aT THEN 5400 

5300 PRIM "AND TOOK OFF AT AN ANGLE OF "IDll " DEGREES " 
5400 PRINT "YOU ARE " 

5500 PRIM "AT LOCATION "IQ3; " BY "JU4 

5600 IF Zl>2«T THEN 6200 
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5700 IF Z1>T Then 6400 

5800 PHIN I "SPLAT I ! ! ! " 

5900 PhINT "YOU GOT IT " 

6000 PHINT "80V *HAT A MESS - SQUASHED MOuSE EVEWYWHERE " 
6100 GOTO 8800 

6200 PHIM "OWWW THAT HURTS - YQURE NOT EvEN CLOSE " 
6300 GOTO 6500 

64 00 PHINT "MISSED AGAIN. BUT PRETTY CLOSE " 

6500 PHINl "WHAT DIRECTION DO YOU * I SH TO JUMP"| 
6600 INPUT 02 

6700 IF D2>«0 AND D2<a360 THEN 7000 

6800 PRINT "8FTWEEN AND 360 DEGREES ONLY " 

6900 GOTO 6500 

7000 Q5«Rl*COS(Ol*Pl)/l00 

7100 a6aRl«SIN{Dl«Pl)/100 
7200 Q7aR2*COS(D2«Pl)/100 
7300 Q8»R2»SIN(02«P1)/100 
7400 Ci»Zi 
7500 C2«Zl 

7600 FOR !■! TO 100 

7700 Q1«Q1*Q5 
7800 Q2«Q2*Q6 
7900 Q3«Q3»07 
8000 Q4sQ4»U8 

8100 C2« (U3-Q1 )* <Q3-Q1 ) ♦ (04-Q2) » (Q4-U?) 

8200 IF C^>Cl THEN 08400 

8300 CUC2 
8400 NEXT I 

8500 IF C1<«T THEN 5800 
8600 K3»K3*1 
8700 GOTO 4300 

8800 PRINT "YOU TUOK "|K3I " TRIES TO 'KETCHCUP)' 

THE MOUSE " ^ 

89O0 Fi^INT "WANT 10 TRY AG A I N? ( YES/NO ) "1 
9000 INPUT Ai 

9100 IF asb"yes" Then 9oo 

9200 IF Ali<>"NO" Then 8900 
9300 STOP 
9400 END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 194 in Section II. 
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CAPTURE THE ALIEN 

Capture the Alien is a slightly different version of the famous 
Star Trek games. Instead of kiMing off the baddies, we capture them. 
To capture the enemy vessel, you must destroy all the regions 
around it, using phaser power. The Battle Computer will keep you 
up to date on how you are doing. 

There is a protected area where the alien first enters your 
sphere of influence, namely the x axis = 1 and the y axis = 1. Firing 
in there is like firing at an already destroyed region. But remember, 
your mission is to capture the enemy vessel. If you zap the alien by 
mistake, watch out. The computer gets mad. 




SET UP 
MATRIX 



GET PLAYERS 
PHASER SHOT 




DISPLAY 
STATUS 



Flowchart for Capture the Alien 
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Sample Run 



ENTEF^ YOUR NAME F-OR THE GALACTIC RECORDS 
? KEN 

INSTRUCTIONS KEN CL-YES? 2-NO) 
? 1 



YOUR MISSION COMMANDER KEN IS TO CAPTURE 

AN ENEMY BATTLE VESSEL. YOU MUST NOT DESTROY 

THE ENEMY? YOU MUST TAKE HIM ALIME. 

TO EFFECT A CAPTURE. YOU MUST DESTROY Al L 

REGIONS AROUND IT. THE INBOARD BATTI F-DEFFNSF 

COMPUTER WILL KEEP YOU UP-TO-DATE ON THE 

ENEMY'S LAST POSITION 

THERE IS ALSO A PROTECTED AREA USING THE 
AXES X-.1. AND Y-1. SO THAT THE ALIEN HAS A CHANCE 
YOU FIRE INTO THIS REGION ,IT IS THE SAME AS FIRING 
INTO A PREVIOUSLY DESTROYED AREA" i i i i i i i i 



GOOD-LUCK COMMANDER KEN 



COMMANDER KEN YOU HAVE 25 SHOTS 

ENEMY'S LAST KNOWN POSITION 
SECTOR 3 !- 1 

















1 


* 


* 


* 


* 


* 


* 






* 


* 


* 


* 


* 


* 


* 


3 


* 


* 


* 


* 


* 


* 


* 


4 


* 


* 


* 


* 


* 


* 




5 


* 


* 


* 


* 


* 


* 


* 


6 


* 


* 


* 


* 


* 


* 


* 


7 


* 


* 


* 


* 


* 


* 


* 


8 


2 


3 


4 


5 


6 


7 


e 





ENTER YOUR PHASER SHOT (XyY)? 21-2 

ENEMY'S LAST KNOWN POSITION 
SECTOR 4 y 2 



1 





* 


* 


* 


* 


* 


* 


2 


* 


* 


* 


* 


* 


* 


* 


3 


* 


* 


* 


* 


* 


* 


* 


4 




* 


* 


* 


* 


* 


* 


5 


* 


* 


* 


* 


*- 


* 


* 


6 


* 


* 


* 


* 


* 


* 


* 


7 


* 


* 


* 


* 


* 


* 


* 


8 




3 


4 


5 


6 


7 


8 
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COMMANDER' KEN YOU HAVE BEEN ATTACKED 
ENEFi'BY USED TO REPLENISH SHIELDS 
COMMANDER KEN ONLY 23 SHOTS REMAIN 

ENTER YOUR PHASER SHOT (X,Y)? 4^3 



ENEMY'S LAST KNOWN POSITION 
SECTOR 5 i, 3 



1 







* 


* 


* 






2 


* 




* 


* 


* 


* 


* 


3 


* 




* 


* 


* 


* 


* 


4 


* 


* 


* 




* 


* 




b 


* 


* 


* 


* 


* 


* 


* 


6 


* 




* 


* 


* 


♦ 




7 


* 


* 


* 








* 


8 




3 


4 


b 


6 


7 


8 





COMMANDER KEN YOU HAME BEEN ATTACKED 
E N E R G Y U S E D T R E P L E N I S H S H I F L D S 
COMMANDER KEN ONLY 21 SHOTS REMAIN 

ENTER YOUR PHASER SHOT (X?Y)? 6.3 



ENEMY'S LAST KNOWN POSITION 
SECTOR 4 , 4 



1 





* 


* 


* 


* 


* 


* 




* 


* 


* 


* 


% 


* 


* 


3 


* 




* 


* 


% 


* 


* 


4 


* 


* 


* 


* 


% 


* 


* 


b 


* 




* 


* 


% 


* 


* 


6 


* 


* 


* 


* 


% 


* 


* 


7 


* 


* 


* 




% 


* 


* 


8 


2 


3 


4 


5 


6 


7 


8 





ENTER YOUR PHASER SHOT (Xi-Y)? 4?5 

ENEMY'S LAST KNOWN POSITION 
SECTOR 3 9 5 



1 





* 




* 


* 


* 


* 


2 


* 


* 


* 


* 


* 


* 


* 


3 


* 




* 




* 




* 


4 


* 


* 


* 


* 


* 


* 


* 


5 


* 




* 


* 


* 


* 


* 


6 


* 


* 


* 


* 


* 


* 


* 


7 


* 


* 


* 


* 


* 


* 


* 


8 


2 


3 


4 


5 


6 


7 


8 





ENTER YOUR PHASER SHOT <X,Y)? 2f5 
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ENEMY'S LAST KNOWN POSITION 
SECTOR 2 > 6 

















1 




* 


* 




* 


* 


* 




* 


* 


* 


* 




* 


* 


3 


* 




* 




* 




* 


4 


* 


* 


* 


* 


* 


* 


* 


5 






* 


* 




* 


* 


6 


* 






* 


* 


* 


* 


7 


* 


* 


* 


* 


* 


* 


* 


8 




3 


4 


5 


6 


7 


8 





:l. 

ENTER YOUR PHASER SHOT (XfY)? 2,7 
COMMANDER KEN 

DID YOU EMER BLOW IT THIS TIME 

YOU ZAPPED THE ALIEN !!!!!!!!! ! 

YOUR 'mission WAS A TOTAL WASTE OF TIME 

FOR YOU AND THE EMPIRE 



RUN COMPLETE. 



Program Listing 



10 «EM LETS CAPTURE A ENEMY VESSEL 
20 REM INSTEAD OF PFSTROYTNG HTM 



30 

«0 DIM UCS*?) 
50 PRINT 

60 PKINT»ENTfR YOUR NAME FOR THE GALACTIC RECORDS" 
70 INPUT AS 
80 S=25 



90 PRIM 

100 PRINT"INSTRUCTI0NS "lASI" (1»YES, 2»N0)" 

110 INPUf C 

120 IF coi Then 290 

130 PRINT 

HO PRTN T"YOUR MISSION COMMANDER »'IASI" IS TO CAPTURE" 

156 PHlNT"AN FNEMY BATTLE VESSEL. YOU MUST NOT DESTROY" 
160 PRINT»THE ENEMYt YOU MUSI TAKE HIM ALIVE." 
170 PRINT"TO EFFECT A CAPTURE* YOU MUST DESTROY ALL" 
180 PRINT"REGI0NS AROUND IT. THE INBOARD BATTLE-DEFENSE" 
190 PRINT"C0MPUTER WILL KEEP YOU UP-TO-DATE ON THE" 

2 00 PRINT»ENEMY«S LAST POSITION" 

210 PR1NT"THERE IS ALSO A PROTECTED AREA USING THE" 

220 PRINT"AXES X»l AND Y«l, SO THAT THE ALIEN HAS A CHANCE" 

230 PRINT"YOU FIRE INTO THIS REGION ,IT IS THE SAME AS FIRING" 

2*0 PRINT"INTO A PREVIOUSLY DESTROYED AREA I ! ! M I I I ! " 

250 PRINT 

260 PRINT"GOOD-LUCK COMMANDER ">A$ _ 

270 PRINT ~~" 
280 PRINT 

290 PRINT"COMmAN0ER "»AS|" YOU HAVE "|S|" SHOTS" 
300 FOR Ami TO 9 
310 FOR Y«l TO 9 
320 Q(Y.X)»0 
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330 


Q(l»^)«i-1 






340 


Q(9tA)«-l 






350 


QCYtDa-l 






360 


Q(Y,9)«-1 






370 


NEXT y 






380 


NEXT X 






390 


X»INT(10«RND(0) ) 




400 


IF X<1 THEN 


390 




410 


IF X>8 THEN 


390 




420 


Y»INT(10»RNO(0) ) 




430 


IF Y<1 THEN 


420 




440 


IF Y>8 THEN 


420 




450 


PHINT 






460 


P«INT"ENEmY»S 


LAST 


KNOWN POSITION" 


470 


PHlNT'tSECTOR 


"»X|» 


t "lY 


480 


PHINT 






490 


IF s<«o Then 


1310 




500 


c«x 






510 


0«Y 






520 


A«INT <10»RND<0) > 




CJfl 
3 JU 


IF A<C THEN 


.550 




540 


GOTO 560 






RKn 

33 u 


X«X-i 






RAD 
30 w 


IF A>C THFN 


580 




570 


GOTO b90 






580 


X = X*l 






590 


IF X<1 THFN 


610 




600 


GOTO 620 






610 


X«l 






620 


IF A>8 THFN 


640 




630 


GOTO 650 






640 








650 


AalN? (10*RND(0) ) 




660 


IF A<D THFN 


680 




670 


GOTO 690 






680 


YsY-l 






690 


IF A>0 THEN 


710 




700 


GOTO 720 






710 


YsY*l 






720 


IF Y<1 THEN 


740 




730 


GOTO 750 






740 


Y = l 






750 


IF Y>8 THFN 


770 




760 


GOTO /80 






770 


Y=8 






780 


IF Q(Y,XJ<>-1 


THFN 


00820 


790 


x«c 






800 


YsO 






810 


GOTO 520 






820 


FOR A»l To 8 






830 


FOR fclal To 8 






840 


IF G(8.A)sO Then 


d60 


850 


GOTO 00870 






86 


PWINT" ••pt«i"| 






870 


IF 0(8.A)=-1 


THEN 


890 


880 


GOTO 900 






890 


PRINT" "I" "1 






900 


NEXT 8 






910 


PHlMi" i-iA 






920 


NEXT A 






930 


P«lNf" 12 3' 


5 6 


7 8" 


940 


PHIN 1 







950 AalNT ( 10«RND (0) ) 
960 IF A>4 THFN 01020 
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970 PHIKT'tCOMHANOER "IAS;» YOl HAVE BEEN ATTACKED" 
980 PNINI"EKERGY USED TO REPLENISH SHIELDS " 
.990 S=S-1 

1000 PRINT"COMHAN0ER "lASP* ONLY "iSP' SHOTS REMAIN" 

1010 PHIM 

1020 A«INT <10«RND(0) ) 
1030 IF A<9 THEN 01150 
1040 A=INT(10»RND(0) ) 
1050 IF AaX Then 1040 

1060 IF A<1 THEN 1040 

1070 IF A>8 THEN 1040 
1080 <3=INT {10«RND(0) ) 
1090 IF BsY THEN 1080 
1100 IF B<1 THEN 1080 
1110 IF B>8 THEN 1080 
1120 Q(8,A)a-l 

1130 PHINr"NOVA IN SECTOR "JAI" , "?b 

1140 PHINI 

1150 PKINfENTpR YOUW PHASER ShOl (AiY)"! 
1160 INPUT A. 8 
1170 S«S-i 

1180 IF AaH AND B«Y THEN 1340 
1190 IF Q(8»A)»-1 T.HEN UOO 

1200 Q(B.A}a-l 

1210 FOR AaX-1 TO *♦! 

1220 FOR d»Y-l TO Y*I 

1230 IF A=X AND B=Y THEN 1250 

1240 IF G(8.A)<>-1 THEN 450 

1250 NEXT 8 

1260 NEXT A 

1270 PRlNC'GOOn SHOW COMHANDEH ";a$ 
1280 PH1NT"Y0U HAVE CAPTURED IHE ALIEN ENEMY" 
1290 PHINT"AND YOU HAVE "iSl" SHOTS HEMAINING" 
1300 STOP 

1310 PHINr"C0MMAN0ER "?AS 

1320 PHINr"YOy HAVE NO MORE ENERGY FOR PHASERS" 

1330 GOTO 1370 

1340 PHIM "COMMANDER "I AS 

1350 PHINT"OID YOU EVFR HLOw IT THIS TIME" 
1360 PHINr"YOU ZAPPED THE AL I EN ! ! I ! 1 I ! ! ! ! " 
1370 PHIM"YOyR MISSION WAS A TOTAL WASTE OF TIME " 

1380 PNIKT»FOR YOU AND THE EMPIRE" 

1390 STOP 

1400 PNIN r"COMMANDER "IA$ 

1410 PHINT"GOOD-SHOT, YOU FIRED ON A PREVIOUSLY DESTROYED 

AREA" 
1420 PHINT"TURkEY" 
1430 GOTO 450 

1440 END 



An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 196 in Section II. 
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STAR WARP 

Star Warp is an interactive program like Star Trek, except that 
instead of graphs being drawn, dialogue goes on between crew 
members. This type of program requires less memory and no 
graphics capabilities. The game sometimes can go on for over one 
hour! 




SET UP 



Flowchart for Star Warp 



iNSTRUCTIONS 



DESTINATION 



FIGHT WITH WHOM 



INPUT COMMAND 



PROCESS COMMAND 



UPDATE STATUS 




YES YES 



MESSAGE 
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Sample Run 



Pfi;0i3RAM STAR lilARP 



SPACED THE FINAL F"RONT I ER ? 

THIS IP THF MnYA(3E OF- THE STARSHIF' PROHETHEUS. 

IT S FIVE YEAR MISSION;, TO EXPI...ORE STRANGE NEW WORLCS. 

TO SEEK OUT NEW LIFE AND NEW C I M 1 L [Z AT I ONS . 

TO BOLDLY GO WHERE NO HAN HAS GONE BEFORE. 



YE OH an: SIR ENTER YOUR NAME FOR THE LOB ? KEN 
SPOfK YOU ARF IN COMMAND OF THE PROMETHEUS s CAPTAIN KEN, 
DO YOU WISH A LIST OF THE POSSIBLE COMMANDS !- SIR? YES 

SPOCK THE POSSIBLE COMMANDS ARE DESIGNATED BY 
THE FOLLOWING NUMBERS OF CODE WORDS 

CODE COMMAND 



RANGE 


KT PI A I RANld AND Dl AL' i NO 01 


1 NEMY 


PHASEF 


1 1 Rl I'HASI K'S. 1 Oh'WARD BANh 




PHASER 


1 1 Rl PllnSI RS l.'l AK' BANK 




TORPF 


1 J Rl piioruN 1 uRpr Dor s forwdrd 


TORPR 


II RF 1 1 101 ON I0K11:DUI S Rl AR 




PROBE 


1 AUNCII ANT Inn) Tl R PRODI UlNI 


..Y 10) 


CLOSE 


APPR'IJACII FNI tiY ( 1 MPUl SI DR 1 1 


'K) 


AWAY 


RF IK'LAI 1 RON 1 Ml h f ( LHF'UI SL 


DRIVE) 


PURSE 


APF-POAOH 1 ni~h\ tWARI' HI.' 1 5 




ESCAPE 


|.T rP'LAl USfNO WART' UR 1 U| 




SHIELDS 


USL OPl 1 MUM Sll 1 1 1 D 




ROT' ATE 


ROTATE THE SHIP 




CHANCES 


1 1 R 1 Nil CIIANI'I S. 




COMMANDS 


REPEAT COMMANDS 




DAMAGE 


1 ULl (lAnriOl Rl PURl 




BLUFF 


nORDOH 1 TL MANF UMI R 




WAIT 


ENEMY HOMES NEXT 




SUICIDE 


';|-LI DLST RUCTION 




SURRENDER 


filUE-UP TO ENEMY 




LMEER 


TURN '''0 111 GK'I F S III) 




RVEER 


1 URN VO Di t.RI F S R 1 Oil 1 





NOTE WEAPON RANGES ARE 

PHASFRS ()-400 MGM (OPTIMUM 200 MGM) 

TORPEDOES 300-700 MGM (OPTIMUM 500 MGM) 
PROBES ALL RANGES 

PHASFRS ARE MORE DEADLY THAN TORPEDOES. 

PROBFS CAUSE TOTAL DESTRUCTION BUT ARE EFFECTIUE 

ONI Y 7 PFRCFNT OF THE TIME (APPROXIMATELY). 

TORPFDOFS AND PHASERS ARE MORE DEADLY WHEN THE 

BEARING OF THE ENEMY IS CLOSE TO . 1 80 >■ AND ■• 1 80 

DEGREES. 



KEN CAPTAIN'S LOG, STAR DATE 517.657 . 

WE ARE PRESENTLY ON COURSE FOR BETE6EUSE 7 

TO RFSCUE MINERS UNDER THE ATTACK 

BY OUTSIDER BATTLE CRUISERS. 
SULU SIR. I'M PICKING UP A VESSEL ON AN ATTACK MECTOR 

WITH THE PROMETHEUS. 
SPOCK SHIP'S COMPUTERS INDICATE THAT IT IS THE OUTSIDER VESSEL 

CTHULU UNDER THE COMMAND OF CAPTAIN TWEEL. 
KEN SOUND RED ALERT, LIEUTENANT UHURA. 
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UHURA AYt'y SIR. 

SPOCK! CTHULU IS AT RANGE 925,163 HGM. 
SULU WHAT ARE YOUR ORDERS y SIR ? LUEER 
KEN TURN 90 DEGREES LEFT MR, CHEKOM 
SPOCK t CTHULU IS AT RANGE 390.304 MGH, 
SULU WHAT ARE YOUR ORDERS? SIR ? TORPR 
KEN FIRE REAR PHOTON TORPEDOES 
CHEKOU MISSED HIM? SIR. 

SPOCK J CTHULU IS AT RANGE 56.3293 MGM? 
SULU WHAT ARE YOUR ORDERS? SIR ? PHASER 
KEN FIRE REAR PHASER BANK 
CHEKOy INCORRECT MECTOR? SIR. 
SPOCK J CTHULU IS AT RANGE 448.67 MGM, 
SULU WHAT ARE YOUR ORDERS? SIR ? TORPR 
KEN FIRE REAR PHOTON TORPEDOES 
CHEKOM DIRECT HIT? SIR. 
SPOCK A HIT ON SHIELD * 1 . 
SPOCK: CTHULU IS AT RANGE 796.98:1. MGM? 
SULU WHAT ARE YOUR ORDERS? SIR ? TORPR 
KEN FIRE REAR PHOTON TORPEDOES 
CHEKOV INCORRECT VECTOR? SIR. 
SPOCK : CTHULU IS AT RANGE 205,356 MGM? 
SULU WHAT ARE YOUR ORDERS? SIR ? WAIT 
KEN LET'S WAIT? WHAT WILL THE ENEMY DO NEXT 
SPOCK : CTHULU IS AT RANGE 811.958 MGM? BEARING 
SULU WHAT ARE YOUR ORDERS? SIR ? BLUFF 
KEN LIEUTENANT? OPEN A VOICE CHANNEL TO STAR FLEET 
KEN USE CODE 2. 

UHURA CODE 2? SIR? THE OUTSIDERS BROKE CODE 2 YESTERDAY? SIR. 
KEN CODE 2? LIEUTENANT? IMMEDIATELY. 
UHURA AYE? SIR. GO AHEAD? SIR. 

KEN THIS IS CAPTAIN KEN OF THE STARSHIP PROMETHEUS. 
WE ARE UNDER ATTACK BY THE OUTSIDER SHIP CTHULU 
AND? IN ORDER TO PREVENT THE PROMETHEUS FROM FALLING 
INTO ENEMY HANDS? WE ARE ACTIVATING THE CORBOMITE 
DEVICE. SINCE THIS WILL RESULT IN THE COMPLETE 
ANNIHILATION OF ALL MATTER WITHIN A RANGE OF 5000 
MEGAMETERS? ALL VESSELS SHOULD BE WARNED TO STAY 
CLEAR OF THIS AREA FOR THE NEXT 3 
SOLAR YEARS. 

I WISH TO RECORD COMMENDATIONS FOR THE ENTIRE CREW 
AND ESPECIALLY COMMANDER SPOCK? LIEUTENANT 
COMMANDER SCOTT? DOCTOR MCCOY? LIEUTENANT UHURA? 
LIEUTENANT SULU? AND ENSIGN CHEKOV. 
SULU NO IMMEDIATE CHANGE IN OUTSIDER COURSE AND SPEED? SIR. 



BEARING -100.204 DEGREES, 



BEARING -140.399 DEGREES, 



BEARING -14.0924 DEGREES. 



BEARING -116.54 DEGREES. 



BEARING 42.2506 DEGREES. 



BEARING -150.974 DEGREES. 



-132.879 DEGREES. 



■.foa- ti lomiLii <;mm riii 't iifVi - iv; r'lni iiiiMf 

' C A L I... E n U f ^ B L U F F' 9 C A f T A I N , 

■wnci., t Diitii II i;; at kAfJi'.i 
'..ill. II WHAT Aki 'iiJUK h";- ; 



■•in IT 



htiii. I.'li'iPfNB 122.279 DEGREE 



h! M AIHcilAi II I Nl iTr A I Ui'ih'!' Sn I li 

2,898 MGM. BEARING 113,52 DEGREES, 
IR '!> CLOSE 



iuih. l.li-ikfNG -38,9298 DEGREES 



.-.pill K ; I null II 18 Al PANlil 

' .ui u w\r, r Ai>'i I'fiiH.' ukui |.;8 . '. i K' 
Ki N i~Uiii III nrj 1 III I iM ny '|| 
81 HICK * f~riiui II 18 Ar KAinii- i 

■.UI II UIIAJ niol Y()U|.; ClK'IilK'8? 81k l1IA8|k 
KEN FIRE REAR PHASER BANK 
I'HI M)" INl'dkkl 8 1 ii| { Ifil.'. 8 Ik', 

'^I'lii'k; rniuiu i8 ai i.'AMi.I: ,',4.'!,88.i muiv waki:ng 131.995 degree 

'SULU Wllnl Ak'L fiWH ni;liLls8. Ml; ■• l'IIA8lk 
I I iJ I- Ikl kl AK I'I1A8I k' HAilk 
8111 I nn I'll,-',;;! (<;; r | r lN8. 8 I k, 
CHEKOV MISSED HIM? SIR. 

';i'n8k; nil our8niiR i--. i ik-iNis I'lionii-i nn.'pi uui- 3 at us 

A DIRECT HIT ON SHIELD # 3 . 
Mil II WHAT AkI: YDUk' ni.'iil R8. I k' Ui't I T 
hi N II T'8 UAIl. UllAI Will I 111" I Nl in' HO lU \ r 

':.i'(i8ki nil n!ii8iDii.; r8' i ii.'iN8 iiiunirj i nki-i noi s at us 

EVA'.IVI MANI tlUl k'8 UI kl I n 1 8 1 1 D.fJU )iiif1A8l . 
81JLU WHAT AkI YOUR flkHl-kS? M k' kailAll 
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KEN TURN US ABOUT 180 DEGREES ^ MR.SULU 

SP0CK5 THE OUTS. I HER IS EIRINB PHOTON TORPEDOES AT US 

FMAST UE MANEUMERS WERE EFFECTED? NO DAMAGE. 
SPOCKJ CTHULU IS AT RANGE 648,824 ^6M. BEARING -^e.OOSl DEGREES 
SUI..U WHAT ARE YOUR ORDERS- SIR ? WAUY 
SULU TROUBLE HEARING YOU CAPTAIN KEN 
SUI...U WHAT ARE YOUR ORDERS i- SIR 'i' AWAY 
KEN RETREAT FROM THE ENEMY 

SPOCKJ CTHULU IS AT RANGE 478.55 MGMy BEARING ■••■69.5286 DEGREES. 
SULU WHAT ARE YOUR ORDERS. SIR '> ESCAPE 
KEN RETREAT AT TOP WARP SPEED 

SPOCKJ CTHULU IS AT RANGE 472.399 MOM. BEARING 108.811 DEGREES 

SULU WHAT ARE YOUR ORDERS ? SIR ? SURRENDER 

KEN LIEUTENANT? OPEN A VOICE CHANNEL TO THE ENEMY 

KEN THIS IS CAPTAIN KEN OF THE STARSHIP PROMETHEUS. 

WILL YOU ACCEPT OUR UNCONDITIONAL SURRENDER? 
TWFFL ON BEHALF OF THE OUTSIDER EMPIRE? I ACCEPT YOUR 

UNCONDITIONAL SURRENDER? PREPARE FOR IMMEDIATE BOARDING. 

COMPUTER? DO YOU WISH TO ATTEMPT ANOTHER BATTLE 

IN COMMAND OF THE PROMETHEUS ? NO 
COMPUTER DO YOU WISH TO CHANGE SHIP ? NO 



RUN COMPLETE. 



Program Listing 



30 HEN SET RANDOM NUM8ES 

UO LET H6snM(0) 

50 LET KB=INT(W6) 

60 LET k5=H6-H5 

70 LET K5aNNn(H5) 

80 DIM N$ (16) ♦ Oi (21 ) . ItiSl) 

90 OEF FND (B)=IN1 (AHS(B/90) ) 
100 OEF FNX(8)«3.Ul'=;926»ABS(9n-ARS(R) )/ieO 
110 FOR lal To 8 
120 HEAD LS(I) 
130 NEXT I 

140 HEM PLACES TO GO 

150 DATA GAMMA TiALPHA CENTAUNI 

160 DATA SIHIUS 12fBFTEGEUSE 7 

170 DATA SOL 3tS0L 9 

180 DATA ALOERBARAN S»ANDR0MENDA 

190 FOR !■ I TO 16 

200 WEAC N$(I) 

210 NEXT 1 

220 HEM THE GOOO GUY'S SHIPS 

230 DATA ENTERPRISE. SOL-KEEPER .BRAVE .EXETER 

2^.0 DATA ACTURUS. SONG-BIRD. DRAGON, LION 

250 DATA EXCALIBEN. TIGER. REPUBLIC. DEFIANT 

260 DATA PHOMFTHEUS. SIBERIA. LENIN, MARX 

270 FOR lal To 3 

280 READ K$(I) 

290 NEXT I 

300 REM FYPE oF BADDIES 

310 DATA KLINGON.ROMULAN, OUTSIDER 

320 FOR I»l TO S 

330 READ R$(I) 

340 nEXI I 

350 REM BADDIES' SHIPS 

360 DATA CTHULU, CUARK.KLIXSNIP.XOTOP.KLEEP 



370 FOR I«l To 5 
380 READ T$(I) 
390 NEXT I 

400 REM LETS NAME THE CAPTAIN OF THE 8A0OIES 
410 DATA KLEEK.RYJKA.DYSNIP, J0JLM,TWFEL 
420 FOR I»l TO 21 
430 READ OS(I) 
440 NEXT I 

450 DATA RANGE AND BEARING OF THE ENEMY 

460 DATA FIRE FORWARD PHASER BANK 

470 DATA FIRE REAR PHASER BANK 

480 DATA FIRE FORKARD PHOTON TORPEDOES 

490 DATA FIRE REAR PHOTON TORPEDOES 

500 DATA LAUNCH ANTIMATTER PRQRE 

510 DATA COME UP ON THE ENEMY VESSEL 

520 DATA RETREAT FROM THE ENEMY 

530 DATA APPROACH ENEMY AT nHARP SPEED 

540 DATA REIRFAT AT TOP xARP SPEED 

550 DATA "USE OPTIMUM SHIELD DEPLOYMENT MR.SULU" 

560 DATA "TURK! US ABOUT 180 DEGREES. MR.SULU" 

570 DATA "MR.SPOCK, WHAT ARE OUR CHANCES AT A HIT" 

580 DATA "MR. SPOCKt WHAT OPTIONS ARp AVAILABLE" 

590 DATA "MR.SPOCK. FULL DAMAGE REPORT" 

600 DATA "LIEUTENANT. OPEN A VOICE CHANNEL TO STAR FLEET" 

610 DATA "LETiS WAIT, WHAT WILL THE ENEMY 00 NEXT" 

620 DATA "ACTIVATE COMPUTER OESTRUCT SEQUENCE" 

630 DATA "LIEUTENANT, OPEN A VOICE CHANNEL TO THE ENEMY" 

640 DATA "TURN 90 DEGREES LEFT MR. CHEKOV" 

650 DATA "TUHN 90 DEGREES RIGHT MR, CHEKOV" 

660 FOR I»l To 21 

670 READ Z$(I) 

680 NEXT I 

690 DATA RANGE«PHASEF .PHASERtTORPF 
700 DATA TORPRtPROBE, CLOSE, AWAY 
710 DATA PURSF.ESCAPEtSHIELOS 
720 DATA ROTATE, CHANCES, COMMANDS 
730 DATA DAMAGE, BLUFF, WAIT, SUICIDE 
740 DATA SURRENDER, LVEER,RVEER,H 
750 PRINT 

760 LET SS»NS(RNO<0)«16*1) 

770 PRINT "SPACE. THE FINAL FRONTIER," 

780 PRINT "THIS IS THE VOYAGE OF THE STARSHIP "|S$I"." 

790 PRINT "IT S FIVE YEAR MISSION, TO EXPLORE STRANGE NEw WORLDS. 

800 PRINT "TO SEEK OUT NEW LIFE AND NEW CIVILIZATIONS," 

810 PRINT "TO BOLDLY 60 WHERE NO MAN HAS GONE BEFORE." 

820 PRINT 

830 PRINT 

840 PRINT TAB(20)I"S TAR UARP " 

850 PRINT TAB (20) I" " 

860 PRINT 

870 PRINT"YEOmAN SIR ENTER YOUR NAME FOR THE L06"J 
880 INPUf CS 

890 PRINT "SPOCK YOU ARE IN COMMAND OF THE "|S$I", CAPTAIN "|C$I 
900 PRINT " 00 YOU WISH A LIST OF THE POSSIBLE COMMANDS, SIR"! 
910 INPUT A$ 

920 IF A$<>"YeS" THEN 950 
930 GOSUB 5530 
940 Q0SU8 5950 
950 PRINT 

960 LET ESaK$(RND(0)»3*l) 
970 LET Fi«R$(RND(0)»5*l) 
980 LET USaTS(RND(0)»5»l) 
990 LET U$«L$(RN0(0)*8*1) 
1000 LET Y»50«(RND<0)-.5) 

1010 PRINT CSI" CAPTAIN'S LOG, STAR DATE "999«RND ( ) I " , " 

1020 PRINT " WE ARE PRESENTLY ON COURSE FOR "10$ 

1030 ON INT(RND«0)«5)»1 GOTO 1040, 1070, 1100. 1120. 1140 

1040 PRINT" TO RESCUE MINERS UNDER THE ATTACK" 

1050 PRINT " BY "lESl" BATTLE CRUISERS." 

1060 GOTO 1150 
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1070 PHINT" WitH A CARGO OF OILITHIUM CRYSTALS TO " 
1080 PRINT" POWER THE COLONISTS STATION" 
1090 GOTO 1150 

1100 PRINT" To SEARCH FOR NE» MINERALS FOR THE FEDERATION" 
1110 GOTO 1150 

1120 PRINT" *ITH MARTIAN FLU-CURE" 
1130 GOTO 1150 

1140 PRINf" FOR OBSERVATION OF BLACK HOLES" 

1150 PRINT "SULU SIR. I'M PICKING UP A VESSEL ON AN ATTACK VECTOR" 
1160 PRINT " WITH THF "!S$I"." 

1170 PRINT "SPOCK SH1P»S COMPLTERS INDICATE THAT IT IS THE "I 
1180 PRINT ESP' VESSEL " 

11<30 PRINT " "IFS!" UNDER THE COMMAND OF CAPTAIN "!L$»"." 

1200 PRINT CS!" SOUND RED ALERT . LIEUTENANT UHURA." 

1210 PRINT "UHURA AYE. SIR." 

1220 IF RN0(0)>.5 THEN 1250 

1230 LET XSa'iSULU" 

1240 GOTO 1260 

1250 LET X$s"ChEKOV" 

1260 LET HlaH2=G«X=S=0 

1270 LET P»0 

1280 FOR 1»1 TO 4 

1290 LET Z(n=l00 

1300 LET S(n«l00 

1310 NEXT I 

1320 LET R«1000-100«RND(0) 
1330 LET 8«360»(RNO(0)-.5) 
1340 LET m«360«(RNO{0)-.5) 
1350 GOTO 01380 
1360 IF I<7 THFN 01390 
1370 IF I>12 THEN 01390 
1380 GOSUB 05810 

1390 PRINT X$" WHAT ARE YOUR ORDERS. SIR"! 

1400 INPUT MS 

1410 FOR 1«1 To 21 

1420 IF 2*(I)aM$ THEN 1480 

1430 NEXT I 

1440 CHANGE MS TO M 

1450 LET l«M(l)-27 

1460 IF M(l)al THEN 1480 

1470 LET Ial0«I*M(2)-27 

1480 IF I<1 THEN 1500 

1490 IF I<22 Then 1520 

1500 PRINT X$|M TROUBLE HEARING YOU CAPTAIN "ICS 

1510 GOTO 01390 

1520 PRINT CSI" "05(1) 

1530 IF I>12 THEN 1570 

1540 IF I>6 THEN 1560 

1550 ON I GOTO ^1380i 1580i 1610, 1640. 1670, 1700 

1560 ON (1-6) GOTO 1730, 1730, 1760, 1760, 2670, 1730 

1570 ON (1-12) GOTO 2780, 2900, 2920, 1790, 3710, 3540, 3630, 

6180, 6210 
1580 IF Hl<7 Then 1900 

1590 PRINT "CHFKOV FORWARD PHASERS ARE OEADi SIR." 

1600 GOTO 3710 

1610 IF HK6 Then 02320 

1620 PRINT "CHEKOV REAR PHASER IS DEAD, SIR," 

1630 GOTO 3710 

1640 IF Hl<9 THEN 2340 

1650 PRINT "CHEKOV FORWARD PHOTON TORPEDOES ARE DEAD, SIR." 

1660 GOTO 3710 

1670 IF Hl<8 THEN 2410 

1610 PRINT "CHFKOV REAR PHOTON TORPEDO IS DEADf SIR." 

1690 GOTO 3710 

1700 IF HKll THEN 2430 

1710 PRINt "CHEKOV PROBE LAUNCHER IS DEAD, SIR." 

1720 GOTO 3710 

1730 IF HK14 THEN 2520 

1740 PRINT "SULU IMPULSE ENGINES ARE DEAD, SIR." 
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1750 GOTO 3710 

1760 IF HKll THEN 2520 

1770 PHINT "SULU knAHP OHIVE IS DEAD. SIR." 

1780 GOTO '3710 

1790 IF H2<11 THEN 1R20 

1800 PNINT "SPOCK THE "IE$J" HAS NO FN6INES, SIR." 

1810 GOTO 3710 

1820 IF G=0 THEN 3270 

1830 PhlNr "SPOCK I no not that the "»E$I"S will BE FOOLED" 

1840 PRINT " RY That MANEUVER AGAINt SIR." 

1850 GOTO '3710 

1860 IF AhS{B)<90 THEN 1890 

1870 PRINT "CHEKOV INCORRECT VECTOR* SIR." 
1880 GOTO 3710 

1890 PRINT "CHEKOV PHASERS FIRINGt SIR." 

1900 LET R93R 

1910 LET fci9«B 

1920 GOSLB 6130 

1930 IF RnD(0)<F8 THEN I960 

19<t0 PRIM "CHEKOV MISSED HIM, SIR." 

1950 GOTO 3710 

1960 IF RND(0)<.2 THEN 2140 

1970 LET V».5 

1980 LET K«l 

1990 FOR Kla2 TO A 

2000 IF S(K)>»S(K1) THEN 2020 

2010 LET K»K1 

2020 NEXT Kl 

2030 IF S<K)>50 THEN 2050 
2040 LET K-INT (RN0(0)»4*1) 
2050 LET H2=H2*V 

2060 PRINT "SPOCK A HIT ON SHIELD #"|K«"." 

2070 IF S(K)s0 THEN 2170 

2080 LET S(K)«S{K)-30«V«(RND(0)*.l) 

2090 GOTO 2100 

2100 IF S(K)>0 THEN 2130 

2110 PRINT " hHICH IS NOW GONE." 

2120 LET S(K)»0 

2130 GOTO 3710 

2140 LET V»l 

2150 PRINT "CHEKOV DIRECT HIT, SIR." 
2160 GOTO 1980 

2170 PRINT "CHFKOV GOT HIM, SIR," 
21P0 IF RnD(0)<.5 THEN 5440 

2190 PRINT "SPOCK THE "IE$I" VESSEL REMAINS INTACT, CAPTAIN." 
2200 PHINT C$1" OPEN A HAILING FREQUENCY. LIEUTENANT." 
2210 PRINT "UHURA HAILING FREQUENCY OPEN* SIR." 

2220 PRINT CSP' THIS IS CAPTAIN "»C$I" OF THE STARSHIP "JS$!"." 
2230 PRINT " PREPARE TO COMMENCE BEAMING OVER SURVIVORS," 
2240 IF RN0(0)<.5 THEN 2300 

2250 PRINT U$l" I AM AFRAID IHAT IKILL BE UUITE IMPOSSIBLE." 

2260 PRINT " CAPTAIN, SINCE wE HAVE JUST INITIATED OUR AUTO-OESTRUCT i" 

2270 PRIM " 10 9 8 7 6 5 4 3 2 1" 

2280 PRINT 

2290 GOTO 5440 

2300 PRINT USI" VERY WELL. CAPTAIN. OUR SHIELDS HAVE BEEN DEACTIVATED." 

2310 GOTO 05840 

2320 IF AHS(B)<90 THEN 1870 

2330 GOTO 1890 

2340 IF ABS(ei>»90 THEN 1870 

2350 LET R9bR 

2360 LET B9«B 

2370 GOSUH 6080 

2380 IF Rn0(0)>F9 THEN 1940 

2390 IF RnD(0)<.25 THEN 1970 

2400 GOTO 02140 

2410 IF AeS(B)<90 THEN 1870 

2420 GOTO 2350 

2430 IF X<10 THEN 2460 

2440 PRINT "CHEOV WE HAVE NO MORE PROBES. SIR," 
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2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 



PROBE IS HOMING ON THE "IFSjm , SIR," 
2530. 2560, 2600, 2630, 2670, 2740 



GOTO 3720 
LET A»X*1 

IF RnD(0)<. 07135 THEN 2&00 
PRINT "SPOCK PROBE LOST. CAPTAIN." 
GOTO 3710 
PRINT "SPQCK 
GOTO 5440 
ON (1-6) GOTO 
GOSm 4880 
LET K»ABS(R-Y) 
GOTO 3710 
GOSLH 4940 
LET H«ABS(H*Y) 
IF R>5000 THEN 4780 
GOTO 3710 
G0SL8 .4980 
LET H»ABS(R-2«Y) 
GOTO 1710 
GOSUB 5040 
LET W»ABS(R*2«Y) 
IF R>5000 THEN 4780 
GOTO 3710 
LET S»l 
FOR J»2 To 4 
IF 2,<J)<«Z(S) THEN 2710 
LET S«J 
NEXT J 

PRINT "SULU SHIELD i"!S!" IS IN POSITION." 
GOTO 1390 
LET B«B*180 
IF B<»180 THEN 3710 
LET 8-8-360 
GOTO 3710 
PRINT "SPoCK 
LET H9«R 
LET 89x6 
GOSLd 6130 
LET F8»F8«100 
PRINT " OF A 
LET H9»R 
LET B9»B 
GOSLb 6080 
LET F93F9«100 
PRINT " OF A 
1390 

5530 
1390 



AT RANGE "IR|» 1 .HOULO ESTIMATE THE PROBABILITY" 



PHASER HIT AT "JF8J" AND THE PROBflBL IL I T Y" 



PHOTON TOHPFOO AT "5F9I"." 



GOTO 
GOSLB 
GOTO 

PRINT "SPoCK DAMAGES AHt AS FOLIOWS," 
PRINT TAB(10)!"OF SHIELDS REMAINING" 
PRINT TAB(6)I"SNIELD #" M AB ( l6 ) ! S$ J T AB ( 30 ) JF$ 
FOR J»l To 4 

PRINT TAB(9> IJlTiB(16i IZ(j) ;Ta8(30) !S(J) 
NEXT J 

PRINT SSI" DAMAGE"! 
IF Hl>5.5 THEN 03020 
PRINT TAB (20) '"NONE" 
GOTO 3140 

PRINT TAB (20) l"WEAR PHASER DEAD" 
IF MK7 THEN 3140 

PRINT TAB(20) !"FORWARD PhflSERS DEAD" 
IF hl<8 Then 3140 

PRINT TAB(20) !"REAR PHOTON TORPEDOES DEAD" 
IF hl<9 Then 3140 

PRINT TA8(20) »"FORi«ARO PHOTON TORPEDOES DEAD" 
IF hKll THEN 3140 

PRINT TA8(20) P'PROBE LAUNCHER DESTROYED" 
PRINT TAB(20) M'WARP DRIVE LOST" 
IF HK14 THEN 3140 

PRINT TAB (20) l"IMPULSE POhER LOST" 
PRINT FS$M DAMAGE"! 
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3150 IF H2>5.5 THEN 3180 
3160 PHINT TAB(20) P'NONE" 
3170 GOTO 3250 

3180 PRINT TAB(20);"ALL PHASEHS DEAD" 
31<50 IF H2<9 Then 3250 

3200 PHINT TAB (20) l''ALL TOHPEDOES DEAD" 
3210 IF H2<11 THEN 3250 
3220 PHINT TA8(20> l"liKAHP D«IVE DEAD" 
3230 IF H2<H THEN 3250 

3240 PHINT TAB (20) l"IMPULSE ENGINES DEAD" 

3250 PRINT 

3260 GOTO 1390 

3270 PRINT C$" USE CODE 2." 

3280 PRINT "UHUPA CODE 2t SIR? THE "JES}"S BROKE CODE 2 YESTERDAYt 
SIR." 

3290 PRINT C$1" CODE 2t LIEUTENANT. IMMEDIATELY." 
3300 PRINT "LHURA AYEt SIR. GO AHEAD. SIR." 

3310 PRINT CSI" THIS IS CAPTAIN "JC$I" OF THE STARSHIP "|S$»"." 
3320 PRINT " WE ARE UNDER ATIA(:K BY THE "lESI" SHIP "JF$ 
3330 PRINT " AND. IN ORDER TO PREVENT THE "»S$I" FROM FALLING" 
3340 PRINT " INTO ENEMY HANDS, WE ARE ACTIVATING THE CORBOMITE" 
3350 PRINT " DEVICE. SINCE THIS WlLL RESULT IN THE COMPLETE" 
3360 PRINT " ANNIHILATION OF ALL MATTER WITHIN A RANGE OF 5000" 
ME6AMETEHS, ALL VESSELS SHOULD BE WARNED TO STAY" 
CLEAH OF THIS AHEA FOR THE NEXT " I INT (RNQ ( ) «4 ) ^2 
SOLAR YFARS." 

I WISH TO RECORD COMMENDATIONS FOR THE ENTIRE CREW" 
AND ESPECIALLY COMMANDER SPOCK, LIEUTENANT" 
COMMANDER SCOTT, DOCTOR MCCOY, LIEUTENANT UHURA," 
LIEUTENANT SULU, AND ENSIGN CHEKOV." 



3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 



PRINT 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
LET G«l 

IF RND(0)>.2 THEN 
PRINT "SUlU 
PRINT "SPOCK 
PRINT " THE 
GOTO 05840 
PRINT "SUlU 
PRINT "SPOCK 



. ._ . 3500 

"IE*!" IS MOVING AVKAY AT WARPIO, SIR." 

THF TACTIC APPEAHS TO HAVE BEEN EFFECTIVE, SIR." 
"lESI" HAS BEEN REPULSED." 



NO IMMEDIATE CHANGE IN "jESf" COURSE AND SPEED, SIR^ 
IT WOULD SEEM THAT THEY HAVE, AS YOU HUMANS PUT IT, 
PRINT " .CALLED OUR BLUFF*, CAPTAIN." 
GOTO 3710 

PRINT "COMPUTER 10 9 8 7 6 5 4 3 2 I" 
PHINT " THE "IS$?" HAS BEEN DESTROYED." 
LET U«200«RN0(0) 

PKINT " RADIUS OF EXPLOSION "JQ|" MGM." 
IF G>aR Then 3610 

PRINT " "!ESI" VESSEL REMAINS INTACT." 
GOTO 5840 

PHINT " "IE$I" VESSEL DESTROYED," 
GOTO 5840 

IF E*<>"ROMULAN" THEN 03660 

NO ANSWER FROM THE "JFSJ" 



SIH." 



PRINT "UHURA 
GOTO 3710 

PHINT CSM' THIS IS CAPTAIN "JC$I" OF THE STARSHIP "ISSI"." 
PRINT " WILL YOU ACCEPT OUR UNCONDITIONAL SURRENDER?" 

PRINT U$l" ON BEHALF OF THE "}E$I" EMPtRE. I ACCEPT YOUR" 

PRINT " UNCONDITIONAL SURRENDER, PREPARE FOR IMMEDIATE BOARDING. 
GOTO 5840 

REM ENEMY MOVE DECISION SECTION 

IF H2<9 Then 4030 

IF H2<11 THEN 3870 

IF H2>13.9 THEN 4670 

IF Hl>10.9 THEN 4780 

IF Hl>e.9 THEN 3820 

IF R<200»RND(0) THEN 4830 

GOSLB 4880 

LET H»ABS(H*Y) 

IF H>5000 THEN 4780 

GOTO 1380 

IF HND(0)<.5 THEN 3780 
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3830 G0SU8 4940 

3040 LET N»ABS(R-Y) 

3850 IF Ft>5000 THEN 4780 

3860 GOTO 1380 

3870 IF Hl<7 Then 4000 

3880 IF NK9 Then 3770 

3890 IF H1>10.9 THEN 4780 

3900 IF RnD(0)<.5 Then 3820 

3910 IF RnD(0)<.5 Then 39«)0 

3920 G0SU8 4980 

3930 LET W«ABS(H*2»Y) 

3940 IF H>5000 THEN '+780 

3950 GOTO 1380 

3960 GOSLb 5040 

3970 LET HaABS(H-2«Y) 

3980 IF N>5000 THEN 4780 

3990 GOTO 1380 

4000 IF f»>700 THEN 3960 

4010 IF H>200 THEN 3920 

4020 GOTO J770 

4030 IF H2<6 THEN 4200 

4040 IF HK7 ThEN 4120 

4050 IF H<300 THEN 3960 

4060 IF H>700 THEN 3920 

4070 IF Hl>7.9 THEN 4090 

4080 IF FND(81)>FND(B) THEN 3960 

4090 IF AriS(81-90)>=ABS(B-90)-20 THEN 5080 

4100 IF RnD(0)<.5 Then 3960 

4110 GOTO 3920 

4120 LET K9=H 

4130 LET 89=61 

4140 GOSLH 6130 

4150 LET N9aH 

4160 LET H9«B1 

4170 GOSLB SOflO 

4180 IF F8>F9 THEN 3960 

4190 GOTO 4050 

4200 IF HK7 Then 4290 

4210 IF R>150 THEN 4240 

4220 IF HnD(0)<.5 THEN 3830 

4230 GOTO 3960 

4240 IF W>«400 THEN 04270 

4250 IF Aascenoo then 5150 

4260 GOTO 3830 

4270 IF fi>700 THEN 3920 

4280 GOTO 4080 

4290 IF k>700 THEN 3920 

4300 LET H9»H 

4310 LET B9«B1 

4320 GOSUB 60P0 

4330 LET H9«»< 

4340 LET 89a81 

4350 GOSLa 6130 

4360 IF F9>F8 THEN 4080 

4370 IF Hi>6.9 THEN 4390 

4380 IF FND<B1)>FND(8) THEN 3960 

4390 IF AaS(Bl-90)>»ABS(B-90)-20 THEN 5150 

4400 GOTO 3960 

4410 IF HK6 Then 4660 

4420 LET T-Hl-V 

4430 IF ABS(T-6)<.1 THEN 4470 

4440 IF AiSS(Hl-6.26)>,3 THEN 4470 

4450 PHINT "CHEKOV REAR PHASEfi OEADi SIR." 

4460 GOTO 4660 

4470 IF A8SfT-7)<.l THEN 4510 
4480 IF ABS<H1-7.2S>>.3 THEN 4510 

4490 PRINT "CHEKOV FORWARD PHASERS UFAO* S|R 
4500 GOTO 4660 



VESSfcL HAS BEEN BNOKEN» SIN." 
MH.SULU." 



4510 IF *HS(T-fl)<.l THEN 4=550 
4520 IF A«S (Hl-8.25)) >.3 THEN 4550 

4530 PKINI '"CHEKOV HF PhOTOK TOHHEDOES DEAD. SI^<.'' 
4540 GOTO 4660 

4550 IF A8S(T-q)<.l THEN 4590 
4560 IF AriS (Hl-9.2b) >.3 THEN 4590 

4570 PHINT 'iCHFKOV FORWARD HhCTOn IuPPEDOES OfcAOt SIH." 
45P0 GOTO 4660 

4590 IF ABSd-ilX.l THEN 4630 
4600 IF ABS<H1-11.25)>.3 THEN 4630 

4610 PklNr "CHEKOV PROBE LAUNCHFH AMP *A«P DhlVE GONE t SIR." 
4620 GOTO 4660 

4630 IF AriS<T-14)<.l THEN 4660 
4640 IF AdS (Hl-14.25)>.3 THEN 4h60 
4650 PHINI "CHEKOV IMPULSE ENGINES UFAD. SIR." 
4660 hETCkN 

4670 IF P>0 Then 1360 
4680 LtT H=l 

4690 PHINT "SPOCK THE "!Eil" SHIP IS COMPLETELY CHIPPLED, SIR." 
4700 PNIM II no YOU *ANr TO SbRPEMDEH") 
4710 INPUf AS 

4720 IF As>«"YES" THEN 2200 

4730 PNINI "SPOCK 00 YOU WANT TO DLSTKOY THE "IF*»". CAPTAIN"; 
4740 INPLI A$ 

4750 IF Ai="YES" THEN 1390 
4760 GOTO 4790 

4770 HEM LOSS OF CONTACT SECTION 
47aO PHINT "SUlU CONTACT iwITH THE "}E$; 
4790 PHIM CSJ" HESUME COURSE EON ";o$5 
4800 PHINT "CHEKOV AYE, SIR." 
4810 GOTO SH40 

4820 REM ENEMY SLICIDE SECTION 

4830 PHINI "SPOCK SENSOHS INDICATE THAT ThE "JFt;" IS OVERLOADING" 

4840 PHIM " WHAT REMAINS OF ITS ANTIMATTER POOS, UNOOUHTEOLY" 

4850 PHINI " aSUICIDAL MOVE .CAPTAIN. POOS «ILL DETONATE" 

4860 PHINf " IN 12 SECONDS - 1 9 8 7 6 5 4 3 2 I " 

4870 GOTO 5440 

4880 LET H=H-200« (RND (0) ».5) 

4890 LET H=360 «(RND(0)-.5) 
14900 LET Bl=360«!HND(0)-.5) 
14910 IF H>0 IHFN 4930 
14920 LET H=-H 
'4930 HETLKN 

14940 LET KsH*200» (HNO (0) ♦ .5) 
14950 LET H=360« (HND <0) -.b) 
14960 LET Bl=360»(NND{0)-.5) 
14970 HETLhN 

14QJ0 LET H=R-400» (HNO <0) ♦.S) 
4990 LET a=360« (HND (0) -.5) 
5000 LET ril=360« (HND (0) -.5) 
bOlO IF H>0 THEN 5030 
5020 LET H=-H 
5030 HETLHN 

5040 LtT K=H*400» (HND (0) ♦.S) 
5050 LET B«360« (HNU{0)-.5) 
5060 LET Bl»360« (RND(0)-.5) 
5070 HETUKN 

5080 PRINT "SPOCKJ THE "IE$!" IS FIRING PHOTON TORPEDOES AT US" 

5090 LET H9aR 

5100 LET B9=B1 

5110 GOSLB 6080 

5120 IF RnD(0)>F9 then 5420 

5130 IF HN0(0)<.4 THEN 5360 

5140 GOTO 05210 

5150 PHINT "SPOCK THE "lESl" IS FIRING PHASEHS AT US, SIR." 

5160 LET R9«R 

5170 LET B9=B1 

5180 60SUB 6130 

5190 IF RnD(0)>F8 Then 5420 

5200 IF RnO(0)<.2 then 5360 
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5210 
5??0 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 

5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
584 
5850 
5860 
5870 
5880 
5890 



LET V«.5 

LET K»INT (RNO (0)»4) ♦! 
IF S»0 THFN -5250 
LET K«S 

PHINT 11 fl HIT ON SHIELD «"JKI"." 

IF 2(K)<«0 THEN 5340 

LET ZtK)«Z{K)-30»V«(RNO(0)*.l) 

LET H1*H1*V 

GOSLB 4410 

IF Z(K)>0 THEN 1360 

LET Z(K)aO 

PRINT SHIELD #"|KI" IS GONE." 
GOTO 1360 

PRINT "COMPUTER THE "lS$P» HAS BEEN OESTROVEO." 
GOTO 5H40 
LET V»l 

LET K»INT (RNO(0)»4) ♦! 
IF SaO THEN 5400 
LET K»S 

PRINT DIRECT HIT ON SHIELD «"IK!"." 
GOTO 5260 

PRINT " EVASIVE MANEUVERS WERE EFFECTED»NO DAMAGE." 

GOTO 1360 

PRINT 

LET Q»200»RNO«0) 
IF G<R THEN 05500 

PRINT "COMPUTER RADIUS OF EXPLOSION "JQ!" MGM." 
PRIM " "|S$l" HAS BEEN DESTRUClEO," 
GOTO 5840 

PRINT "SPOCK "|E$«" VESSEL DESTROYED," 

PRIM " Radius of explosion "iqi" mgm." 

GOTO 5840 

prim 

print "spock the possible commands are designated by" 

PRINT " The FOLLOWING NUMBERS OF CODE WORDS " 
PRINT 

PRIN1"C00E 
PRIM 

PRINT"RANGE 
PRINT"PHASEF 



COMMAND" 



REPEAT RANGE AND BEARING OF ENEMY" 
FIRE PHASERS FORWARD BANK" 



PRINT"PHASER 
PRINT"T0RPF 
PRINT"TOfiPR 
PRIM»PRORE 
PRINT"CLOSE 
PRINr"AWAY 
PRINI"PLRSE 
PRINT"ESCaPE 
PRINT"SHIELDS 
PRINT"R0TaTE 
PRINT"CHANCES 
PRINT"COMmANDS 
PRINT"DAMAGE 
PRINT"BLUFF 
PRIM"WA1T 
PRINT"SUIC10E 
PRlNT»SURRENDtR 
PRIM"LVEFP 
PRINT"RVEfR 
RETURN 

PRINT"SP0CK "IFSJ" 
PRINT "DEGREES." 
RETURN 
PRIM 

PRIM "COMPUTER. DO 
PRIM " IN COMMAND 
INPUT A$ 

IF A»<>"YES" Then 5900 

GOTO 960 



FIRE PHASERS REAR BANK" 
FIRE PHOTON TORPEDOES FORWARD" 
FIRE PHOTON TORPEDOES REAR" 
LAUNCH ANTIMATTER PROBE (ONLY 10)" 
APPROACH ENEMY (IMPULSE DRIVE)" 
RETREAT FROM ENEMY (IMPULSE DRIVE)" 
APPROACH ENEMY (WARP DRIVE)" 
RETREAT USING wARP DRIVE" 
USE OPTIMUM SHIELD" 
ROTATE THE SHIP" 
FIRING CHANCES" 
REPEAT COMMANnS" 
FULL DAMAGE REPORT" 
CORBOMITE MANEUVER" 
ENEMY MOVES NEXT" 
SELF-DESTRUCTION" 
GIVE-UP TO ENEMY" 
TURN 90 DEGREES LEFT" 
TURN 90 DEGREES RIGHT" 

IS AT RANGE ";RJ" MGM. BEARING "IBI 



YOU WISH TO ATTEMPT ANOTHER BATTLE" 
OF THE "ISSI 
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5900 PHIM "COMPUTER DO YOU WISH TO CHANGE SHIP"! 
5910 INPUl AS 

5920 IF A$<>"YES" THEN 6260 
5930 LET !s$aN$(RND(0)»16*l) 
5940 GOTO '890 
5950 PRINT 

5960 PRINT "NOTE KEAPON RANGES ARE" 

5970 PRINT" PHASERS 0-400 MGM (OPTIMUM 200 MGMI" 

5980 PRINT" TORPEDOES 300-700 HGM (OPTIMUM 500 MGMI" 

5990 PRIM " PROBES ALL RANGES" 

6000 PRINT 

6010 PRINT "PHASERS ARE MORE DEADLY THAN TORPEDOES." 
6020 PRINT "PROBES CAUSE TOTAL DESTRUCTION BUT ARE EFFECTIVE" 
6030 PRINT "ONLY 7 PERCENT OF THE TIME (APPROXIMATELY)." 
6040 PRINT "TORPEDOES AND PHASERS ARE MORE DEADLY WHEN THE" 
6050 PRINT "BEARING OF THE ENEMY IS CLOSE 10 . 180 i AND-180" 
6060 PRINT "DEGREES." 
6070 RETURN 
6080 LET F9=0 

6090 IF A8S(R9-500)>200 THEN 6120 

6100 LET F9»l-(R9-500)^2/40000 

6110 LET F9»F9«SIN(FNX(B9) )»(3-FN0(e9) )/3 

6120 RETUKN 

6130 LET F8»0 

6140 IF R9>400 THEN .6170 

6150 LET F8»l-(R9-200) A2/40000 

6160 LET F8«F8«SIN(FNX(B9) I«(5-FND(B9) )/5 

6170 RETUHN 

6180 IF Hl.>«14 THEN 174U 

6190 LET b-B*90 

6200 GOTO 2750 

6210 IF Hl>»14 THEN 1740 

6220 LET ri«8-90 

6230 IF B>»o Then 2750 

6240 LET B«360-B 
6250 GOTO 2750 
6260 END 



An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 198 in Section II. 
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BOMB DISPOSAL SQUAD 

There is a time bomb with 10 wires. You must cut the wires to 
defuse the bomb. Unfortunately, because of the way the bomb was 
made, two of the wires will cause immediate explosion if they are 
cut. Out of the remaining eight wires, four are absolutely harmless. 
And you only have six moves to defuse the bomb. 




HEADER 



SET UP BOMB~[ 



[ FtAG = 



FLAG = FLAG +1 

; \ ; 

YOUR MOVE 
MESSAGE 




Flowchart for Bomb Disposal Squad 
CLOCK 




DYNAMITE 

Fig. 1-3— There are 4 harmless wires, 4 current wires, and 2 immediate explo- 
sion wires. 
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Sample Run 

RUN 

BOriB DISPOSAL SflUAD 

INSTRUCTIONS ARE AS FOLLOWS 

THE TiriE BOtlB IS SET TO EXPLODE AFTER 

AFTER L nOVES 

YOU nUST DEFUSE THE BOMB BEFORE 
THENi OR ELSE THE RESULTING 
EXPLOSION WILL GET YOU. . . 
THERE ARE 10 WIRES-, LABELLED 1 
TO 10-, 2 OF THESE UIRES 
UILL CAUSE inMEDIATE EXPLOSION 
IF CUT. . 

OF THE REMAINING fl UIRES 
H ARE NOT CONNECTED TO ANY 
SENSOR-, INCLUDING THE CLOCK. 
THE BOMB PIAKER PLANTS THESE 
FALSE UIRES-, JUST TO GIVE YOU A 
HARD TIME IN DEFUSING THE BOflB. 
WHICH UIRE TO CUT 
fE 

SILLY GOOSE-, YOU HAVE EXPLODED 
THE BOMB. . - 

BANG. - 

TO PLAY AGAIN TYPE 1-, 

IF NOT TYPE 

fl 

WHICH UIRE TO CUT 
f3 
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WHICH WIRE TO CUT 
f? 

sorrvt that was a harmless wire 
which wire to cut 

?=i 

WHICH WIRE TO CUT 
fl 

WHICH WIRE TO CUT 
fb 

YOU SHOULD BE WITH THE BOIIB S(3UAD 

YOU HAVE SUCCESSFULLY DEFUSED THE 

DEVICE IN ONLY 5 MOVES 

TO PLAY AGAIN TYPE 1 

IF NOT TYPE 

fO 

NEVER DID LIKE EXPLOSIONS-, DID YOUf 
RUN COMPLETE 



Program Listing 

ID REM THIS IS THE PROGRAM OF BOfIB 

DISPOSAL S(2UAD 
EO REM THE BOMB CONSISTS OF M STICKS 

OF 

30 REM BYNAniTE AND IS CONNECTED TO A 
MD REn DIGITAL CLOCK AND OTHER SENS- 
ORS- 

SO REM UNFORTUNATELY YOU CANNOT JUST 
bO REn CUT THE WIRES FROM THE CLOCK 
70 REn IF THE WIRES ARE NOT CUT 
ACCORDING 

fiO REn TO SE(2UENCEi BANG. YOU BLOU UP 

=J0 PRINT 

100 PRINT 
IID PRINT 

lED PRINT "TinE BOnB" 

130 PRINT " " 

mo PRINT 

ISO PRINT "INSTRUCTIONS ARE AS 

FOLLOWS" 
ILD PRINT 
170 PRINT 

laO PRINT "THE TinE BOnB IS SET TO 

EXPLODE" 
no PRINT "AFTER t. MOVES." 
EOD PRINT "YOU MUST DEFUSE THE BOnB 

BEFORE" 

ElO PRINT "THEN-, OR ELSE THE RESULT- 
ING" 
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520 PRINT "EXPLOSION WILL GET YOU-." 
230 PRINT 

240 PRINT "THERE ARE 10 UIRES-, 

LABELLED 1" 
250 PRINT "TO lO, 2 OF THESE WIRES" 
2b0 PRINT "WILL CAUSE IflflEDIATE 

EXPLOSION-," 
270 PRINT "IF CUT. . • ' 

2fl0 PRINT "OF THE REMAINING fi WIRES" 
2T0 PRINT "4 ARE NOT CONNECTED TO 
ANY" 

300 PRINT "SENSORt INCLUDING THE 
CLOCK. ' • 

310 PRINT "THE BOriB MAKER PLANTS 
THESE" 

320 PRINT "FALSE UIRESi JUST TO GIVE 
YOU A" 

330 PRINT "HARD TIME IN DEFUSING THE 

Bone. • • 

340 PRINT 

350 REM SET UP WIRE CONNECTIONS 

3b0 Din yClOJ 

370 REM THE WIRES ARE 

3fi0 A = INT{RNDCO> * 10} + 1 

3T0 B = INT-CRND-CO> * 10> + 1 

400 IF B = A THEN 310 

410 U{A> = 3 

420 UIB} = 3 

430 REM THE ABOVE TWO WIRES CAUSE 
EXPLOSION 
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^^D t = o 

^SD REn THE HARMLESS WIRES-, U{X> = 1 

HhU C = INT{RNDCO} * 10} + 1 

H70 IF C = A OR C = B THEN ^hU 

MflD U-CCJ = 1 

MTO D = INT{RND€0} * 10} + 1 

SOD IFD=CORD=BORD=A THEN 
MTO 

SID U-CD} = 1 

SaO E = INTiRNDCO} * 10} + 1 

S3D IF E = D OR E = C OR E = B OR E 

= A THEN SED 

S^D U€E} = 1 

SSO F = INT{RND-CO} * 10} + I 

SbO IF F = E OR F = D OR F = C OR F = 

B OR F = A THEN SSO 

S70 UIF} = 1 

SaO REM SET UP LIVE WIRES WiX} = S 
STO G = INT{RN]>{0} * 10} + 1 

bOO IF G = F OR G = E OR G = D THEN 
S^O 

blO IF6=C0RG=B0RG=A THEN 
STO 

beO U{G} = B 

hin H = INTCRND-CO} * ID} + 1 

hHQ IF H = G OR H = F OR H = E OR H 

= D THEN b30 
bSO IF H = C OR H = B OR H = A THEN 

b30 

bbO UCH} = 5 
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t.7D I = INT{RND{0} * 1D3- + 1 

bflO IF I = H OR I = G OR I = F OR I 

= C THEN b70 

b'lO IF I = E OR I = C OR I = B OR I 

= A THEN 1.70 

70D uuy = E 

710 reh set up last wire hiixy = a 

720 FOR J = 1 TO 10 

730 IF U{J> = 3 OR UCJ} = 1 THEN 7b0 

7MD IF UCJ} = 5 THEN 7t0 

750 liJ-CJ} = 2 

7b0 NEXT J 

770 reh all wires are not connected 

7ao [1 = 

7T0 M = t1 + 1 

aOO PRINT "WHICH WIRE TO CUT" 

SIO INPUT L 

fiEO IF L< >INT {L> THEN 800 

fl30 IF L < 1 OR L > 10 THEN SOD 

flHO IF lilCL} = 3 THEN 370 

aSO IF U-CLJ = 1 THEN 1030 

abO GOTO lObO 

870 PRINT 

aaO PRINT "SILLY GOOSEt you HAVE 

EXPLODED" 

aiO PRINT "THE BOflB. . . " 

TOO PRINT 

TID PRINT" BANG.." 

TEO PRINT 

T3D PRINT 



TMD PRINT "TO PLAY AGAIN TYPE 

T5D PRINT "IF NOT TYPE 0" 

^bD INPUT C 

T70 IF C = 1 THEN 1010 

■=130 PRINT 

^10 PRINT "NEVER DID LIKE EXPLOSIONS-i 
DID YOU?" 

1000 STOP 

1010 PRINT 

1050 GOTO 3aO 

1D3D IF n > b THEN fl7D 

IDHO PRINT "SORRY-, THAT WAS A HARM- 
LESS WIRE. ' ' 

1050 GOTO 7TD 

lOLO IF n >b THEN a?o 

1070 y{L} = 1 
IDflD T = T + 1 

lO'lO IF T = 4 THEN 1110 

1100 GOTO 710 

1120 PRINT "YOU SHOULD BE WITH THE 

BOMB SflUAD" 
1130 PRINT "YOU HAVE SUCCESSFULLY 

DEFUSED THE" 
imO PRINT "DEVICE IN ONLY"^ nh 

"MOVES" 
1150 GOTO 130 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 204 in Section 11. 
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BIORHYTHM 

This program computes your biorhythm for either a month or a 
year starting with the month and year you desire. All it needs is your 
birth date. 



INPUT 
NAME, MONTH 
OR YEAR- 
BIRTH DATE 
STARTING DATE 



COMPUTE 
BIORYTHM 
PER DAY 



PRINT 




NO 



Flowchart for Biorhythm 
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Sample Run 



ENTER YOUR NAME ? KEN TRACTON 
ENTER EITHER M FOR HONTH OR 
Y FOR YEAR- FOR YOUR PLOT 
? H 

ENTER YOUR BIRTH DATE 

HONTH y DAY !- YEAR ? 10 30 ? J 949 

ENTER STARTING MONTH AND YEAR 



B 1 1^' Y T H M C H A R T F R K E N T R A C T N 
BIRTHDATE 30 OCTOBER 1949 

*=COGNITIME OR INTELLECT 
+ ^^M"'HYSICAL STATE 

*-SENsrrigrrY or emotional 



BIORYTHM chart FOR APRIL 1978 
KEN TRACTON 
< .... ) 



A P F< 1 L 


1 




* ! 


APRIL 


? 


* * 




APRIL 


3 






APRIL 


4 


$ * 




APRIL 


b 


** 


! f 


APRIL 


6 


* % 


■f ! 


APRIL 


7 






APRIL 


a 


* + 


* ! 


APRIL 


9 






APRIL 


10 


# 


! * 


APRIL 


11 


+ * 




APRIL 


12 


■f * 




APRIL 


13 


+ * 




APRIL 


14 


+ * 




APRIL 


15 


+ 


* ! 


APRIL 


16 




■f * 


APRIL 


17 




■f * 


APRIL 


13 




! + 


APRIL 


19 






APRIL 


20 






APRIL 


21 






APRIL 


22 




! * 


APRIL 


23 




$ 


APRIL 


24 




* ! 


APRIL 


25 


$ 




APRIL 


26 


$ 




APRIL 


27 


$ 




APRIL 


28 


* 


! + 


APRIL 


29 


* 


+ ! 


APRIL 


30 







SRU 1.002 UNTS. 

RUN COMPLETE. 
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Program Listing 



10 REM BIORHYTHM PROGRAM 

30 mS»»uAY" 
•40 DIM aS(31> 

50 DIM M$(12) 

60 M${1)«»JANUARY" 

70 MS(2>«'<FE8UARY" 

80 (ASt3)«'»M^ARCH" 

qO M$(4)«"APRIL" 
100 M$(5)«"MAY" 
110 MS {6)«"JUNE" 
120 MS (7)8»JULt" 
130 MS (8)«"AUGUST» 
140 MS(9>«"SEPTJ:MBER" 
150 M$ (10)="OCT08ER" 
160 MS { U ) a"NnVEMBEf<" 
170 MS {1^)«"0ECEMBEH»' 
180 P9B6.2831P5 
190 Pl»2J 
200 P2»2tt 
210 P3»33 
220 01»P9/P1 
230 D2«P9/P2 
240 D3aP9/P3 
250 DATA 31»2R.31.30 
240 OATA 3l»30»^l»31 
270 DATA 30»3l.30»3l 
280 PkINT"ENTFR VOUR NAME"! 

290 INPUT N$ 

300 PHIM"ENTeR either M for month OR" 
310 PRINT"Y FOR YEARt FOR YOUh PLOT" 
320 INPUT X$ 
330 Nl«0 

340 PHINT»ENTeR VOUR BIRTH DATE" 
350 PRINT"MONTHtDAYtYEAR * "t 
360 INPUT BltB2»B3 
370 IF B3<1900 THEN i470 

aso IF Bir>z Then 420 

390 IF Bl*2 AND 62=29 THEN 420 

400 IF INT( (B3-1900)/4)<>(B3-1900)/4 THEN 

410 Nl»l 

,420 PKINT"ENTfR STARTING MONTH AND YFAR"J 

.430 INPUT CltC3 

144X1 IF £3>sU:3 THEN 1500 

1450 FOR JBI TO Bl 

1460 HEAD X 

1470 NEXT J 

480 NlaM*A-a2 

490 IF Bisl? THEN 540 

500 FOR J«S4*1 TO 12 

510 READ X 

520 N1«N1*X 

530 NEXT J 

540 REM MORE CALCULATIONS 
550 IF C3-S3<2 THEN 620 

54X1. -EOfi -.4*83* iraas-J " 



570 IK lNT(J/4>eJ/4 THEN/ 590 

580 GOTO feOO 

590 n1bM*1 

600 NlsM«3fe5 

610 NEXT J 

620 «ESTuHE 

630 IF Cl«l Then 680 
640 FOR J.l TO Cl-l 
650 rtEAD X 
660 N1=M«X 
670 NEXT J 

680 IF InT ( (C3-1900>/4)<> (C3/4) THEN 720 
690 IF Cl>2 Then 710 
700 GOTO 720 
710 N1=N1*1 

720 n«M 

730 I2=M 

740 I3=M 

750 HtftU X 

760 FUR jsl In 5 

770 PKiNf 

7fl0 NEXT J 

790 PHlNVfllORYTHM CHART FOR "JNS 

800 PHINT»»BIRTHDATE '•fB2;M$(81) '•IR3 

810 PRINT 

820 PhIM»f*=C06NITlWF OR INTELLECT" 

830 PRINT»*=PhYSICAL STATE" 

840 PRINT"$*SENSITIVITY or EMOTIONAL" 

850 FOR J=l Tn 5 

860 PRINT 

870 NEXT J 

880 L=0 

890 GUSLb 1330 

900 0=0 

910 L=L*i 

920 FOR Isi To 31 

930 X$<I)an M 

940 NEXT I 

950 X$(l6)=H|,i 

<960 YUInT (l5flSlN( (L*I1)»D1) ♦16.5) 

970 Y2=InT ( 15«SIN ( (L*I2) »D2) ♦ 16.5) 

9P0 YJsInT ( 15»SIN ( (L*I3) »03) ♦16.5) 

990 x4(Yi)s"^«» 

lor^O A*(Ye;)siiSu 

1010 XS{Y3)=H«„ 

1020 IF Y1SY2 THEN 1040 

1030 GOTO 1050 

1040 X$CYl)s"#M 

1050 IF Y1»Y3 THEN 1070 

1060 GOTO loao 

1070 X$(Yl)s"#M 

1080 IF Y2sY3 THEN 1100 

1090 GOTO 1110 

1100 XS(Y3)="«" 

1110 0*0*1 

11^4 11- -EU;X*1 iwsy 1540- 
1130 S1=S1«1 

1140 If 51=12 THEN 1530 
1150 C1«C1*1 
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1160 IF Cl>12 THEN 1200 

1170 HEAD X 

1180 60SU8 . 1330 

1190 GOTO i2'»0 

1200 RESTORE 

1210 CUl 

1220 C3=C3*1 

1230 GOTO 1170 

1240 IF D>9 THEN 1270 

1250 PHINT MS(Cl)»" "IDI" "ITABCQ)! 

1260 GOTO 01280 

1270 PHINT MSCcni" "tOlTABCg)! 

1280 FOR J«l To 31 

1290 PRINT XS(J) I 

1300 NEXT J 

1310 PRINT 

1320 aO TO .910 

1330 REM PRINT MONTH 

13^0 IF X98l Then 1530 

1350 IF X4a»M" THEN 1370 

1360 GOTO 1380 

1370 x9sl 

13g0 FOR J=l To S 

1390 PHIM 

1400 NEXT J 

1410 PNIN f'MIORYTHM CHART FOR ••!M4(C1)J" "IC3 

1420 PRINT TAfl{5) »NS 

1430 PRINT TABdO) l"(-)"ITA8(34) 

1440 PRINT 

1450 D«l 

1460 RETURN 

1470 PRINT 

1480 PRIN1"YEAR MUST BE 1900 OR LATER" 
1490 GOTO '340 
1500 PRINT 

1510 PRINf'STARTING YEAR MUST BE GREATER THAN BIRTH YEAR" 

1520 GOTO 420 

1530 REM NOW top STOP 

1540 END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 206 in Section II. 
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GUESS 

The friendly computer picks a number at random and you must 
guess it. If you are too low or too high, it will tell you with the 
appropriate message. At the end, it will tell you how many tries you 
took. 

The best way is to guess quickly by using the binary search 
method shown in Fig. 1-4. Basically, you pick a point halfway be- 
tween the last known too high point and too low point. 



SELECT RANDOM 
NUMBER 



INPUT GUESS 




Y 


MESSAGE 








Y 




MESSAGE 









WIN MESSAGE 



N 




GOODBYE MESSAGE 



Flowchart for Guess 
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100 



RANDOM. 
NUMBER 



■GUESS 1 

GUESS 3 

GUESS 4 
-GUESS 2 



Fig. 1 -4 — 1 . If guess 1 was too high, try halfway between it and 0. 2. Since guess 
2 was too low, try halfway between guess 1 and guess 2. 3. Since guess 3 is too 
high, try halfway between it and guess 2. You are narrowing the range each time 
by Vz (binary) until you reach the desired number. 

Sample Run 



PROGF^Af 



GUESS 



A r< E I N S T R U C J 1 N S E Q U I R E: D ( 1 Y E S y 2 N ) 
'? 1 

AT RANDOM YOUR FRIE-NDLY COMPUTER WILL 
CHOOSE A NUMBER BETWEEN 1 AND 100 
YOU WILL TRY TO GUESS TF-IE RANDOM NUMBER 
F-l ]: NT! ! T F-l E B J! N A Fi; Y S E A R C H M E T F-l D ! ! 

GOOD -LUCK 



GUESS 



WHAT IS YOUR GUESS? 50 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 25 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 12 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 6 

YOU GOT IT? RIGHT ON THE NOSE!!!! 

YOU ONLY TOOK 4 TRIES 

WANT TO TRY AGAIN 
TYPE l^^^^YES OR 2^^^^N0? 1 
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GUESS 



yHAT IS YOUR GUESS I 
? 50 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 25 

YOU ARE LOW 

WHAT IS YOUR GUESS? 34 
YOU ARE LOW 

WHAT IS YOUR GUESS? 46 
YOU ARE HIGH 
WHAT IS YOUR GUESS? 36 
YOU ARE LOW 

WHAT IS YOUR GUESS? 39 

YOU GOT ITs. RIGHT ON THE NOSE!!!! 

YOU ONLY TOOK 6 TRIES 

WANT TO TRY AGAIN 
TYPE l^^^YES OR 2=^=N0? :l. 



GUESS 



WHAT IS YOUR GUESS : 
? 50 

YOU ARE LOW 

WHAT IS YOUR GUESS? .100 
YOU ARE HIGH 
WHAT IS YOUR GUESS? 75 
YOU ARE LOW 

WHAT IS YOUR GUESS? 87 
YOU ARE LOW 

WHAT IS YOUR GUESS? 96 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 90 

YOU GOT IT? RIGHT ON THE NOSE ! " i i 

YOU ONLY TOOK 6 TRIES 

WANT TO TRY AGAIN 
TYPE 1-:YES OR 2-NO? 2 
SCARED HUH !!!!!! 



RUN COMPLETE. 
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Program Listing 



10 REM THIS IS THE GAME OF GUESS 
20 

30 REM INSTRUCTIONS 

<»0 PRINT"ARE INSTRUCTIONS R£QUIRED"I 
50 PRINT" {l*yES» 2aN0)" 
60 INPUT A 

70 IF Aol THEN 00170 
80 PRINT 

90 PRINT"AT RANDOM YOUR FRIENDLY COMPUTER HnILL" 

100 PRINT"CH00SE A NUMBER BETWEEN 1 AND 100" 

110 PHINT"Y0U WILL TRY TO GUESS THE RANUOM NUMBER" 

120 PHINT"HINTI ITHE BINARY SEARCH METHOD! I" 

130 PRINT 

lAO PRINT" eOOD-LUCK" 
150 PRINT" — — — M 

160 PRINT 
170 PRINT 

180 PRINT" GUESS" 

190 PRINT" " 

200 X«0 

210 Q«INT(100«RND(0> ) 
220 PRINT 

230 PRINT"WHAT IS YOUR GUESS"! 
240 INPUT Z 
250 X-X«i 

260 IF 2mQ THEN 300 
270 IF Z>0 THEN 330 
280 PRINT"YOU ARE LOW" 
290 GOTO 230 

300 PRINT"YOU GOT IT» RIGHT ON THE NOSE 11! I" 

310 PRINI"YOU ONLY TOOK "|X|" TRIES" 

320 GOTO 350 

330 PRINT"YOU ARE HIGH" 

340 GOTO 230 

350 PRINT 

360 PRINT"WANT TO TRY AGAIN" 
370 PRINT"TYPE 1»YES OR 2«N0"I 
380 INPUT V 

390 IF vol THEN 410 
400 GOTO 170 
410 PRINT"SCARED HUH! !!!!!" 
420 END 

This program also will run on the Radio Shack TRS-80 compu- 
ter with no modifications needed. 
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GUESS AGAIN 

To win this game you must guess a random fraction, not a 
decimal number but a common fraction. The fraction, which is picked 
at random, is less than 1 and is in the following form: x/y where x is 
an integer from 2 to 9 and x < y. 




DISPLAY RULES 

IT 

COMPUTE FRACTION 

I 

START MESSAGE 



f 

INPUT GUESS 




WINNING 
MESSAGE 




Flowchart for Guess Again 
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Sample Run 

RUN 

THE COnPUTER IS GOING TO 
CHOOSE A FRACTION FROfl D 
TO 1 

THE FRACTION SO CHOSEN lilILL 
BE IN THE FOLLOyiNG FORM 
X/Y-, UHERE X IS AN INTEGER 
FROn 2' TO 1 AND IS ALSO 
LESS THAN Y 
EXAHPLES: 

3/a-, OR 1/4 

TO rehind you again, the 

THE fraction COULD DEFINITELY NOT BE 
ONE OF THE FOLLOWING OR ANY FRACTION 
LIKE THE FOLLOWING 
H/lDi 3/21i 0/Ti OR S/E 
REdEIIBER YOUR GUESS FRACTION I1UST BE 
BETWEEN D AND 1 
PLEASE ENTER YOUR GUESS AS A 
DIGIT THEN A SLASH THEN THE DENOMIN- 
ATOR DIGIT 

THE COMPUTER HAS PICKED THE FRACTION 

GOOD LUCK... 

WHAT IS YOUR GUESS 

f 2/3 

YOU SHOULD TRY A LARGER VALUED 
FRACTION 

WHAT IS YOUR GUESS 
f S/b 



THAT'S SUPERi YOU ilUST BE A 

hathematician 

if you uant to try again-, type 1 
otherwise type 5 

f 2 

GOOD/BYE HATHEMATICIAN 
RUN COMPLETE 



Program Listing 

10 REM THE COMPUTER IS TO PICK A 





FRACTION 


EO 


REM AT 


RANDOM-, YOU ARE GOING 


3D 


REM TO 


HAVE TO GUESS IT 


MO 


PRINT 




SO 


PRINT 




hU 


REM THE RULES OF THE GAME 


70 


PRINT 




ao 


PRINT 


"THE COMPUTER IS GOING TO 


TO 


PRINT 


"CHOOSE A FRACTION FROM 


100 


PRINT 


"TO 1" 


110 


PRINT 


"THE FRACTION SO CHOSEN 




WILL" 




120 


PRINT 


"BE IN THE FOLLOWING. FORM 


130 


PRINT 


"X/Yi WHERE X IS AN INTEG 




ER' • 




IHO 


PRINT 


"FROM 2 TO T AND IS ALSO' 


ISO 


PRINT 


"LESS THAN Y" 


IbO 


PRINT 


"EXAMPLES: ' ' 


170 


PRINT 


"1/^1 3/fl-, OR 1/M" 


IflO 


PRINT 


"TO REMIND YOU AGAINi THE 
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no PRINT "FRACTION COULD DEFINITELY 
NOT BE" 

2DD PRINT "ONE OF THE FOLLOWING OR 

ANY FRACTION" 
210 PRINT "LIKE THE FOLLOWING:" 
250 PRINT "M/10-, 3/21i c/Ti OR 2/2" 
230 PRINT 

240 PRINT "REflEMBER YOUR GUESS FRAC- 
TION nUST BE" 
2SD PRINT "BETWEEN AND 1" 
2b0 PRINT "PLEASE ENTER YOUR GUESS 
AS A" 

270 PRINT "DIGIT THEN A SLASH THEN 

THE DENOMINATOR" 
2flD PRINT "DIGIT" 
2TD REM TIME TO PICK A FRACTION 
300 B = INTCRND-CD> * a> + 2 
310 A = INT{RND-CO> * -CB - 1}> + 1 
320 PRINT 

330 PRINT "THE COMPUTER HAS PICKED 

THE FRACTION" 
3H0 PRINT "GOOD LUCK..." 
3S0 PRINT 

3b0 PRINT "WHAT IS YOUR GUESS" 

370 INPUT G^ 

3fl0 L = LENCG*} 

310 IF L<> 3 THEN 3SD 

HDO D$ = SUBSTR-CG*-il-il> 

mo s* = substr{g»t2i1> 

M20 E* = SUBSTR{G$i3il> 



M3D D = VAL-CD^} 
4^D E = VALfE*} 
MSD IF S$ <>• V" THEN 3SD 
MbO IF D < 1 OR E < 1 THEN 3SD 
H7U IF DOINT-CD} OR E <>INT{E} 
THEN 350 

4fl0 REd NOTICE THAT H7Q ALSO CHECKS 
FOR LESS THAN 

MID REM 1 LIKE LINE MbO-, lilE HAVE IN- 
CLUDED 

SDD REM BOTH, BECAUSE OF THE 

DIFFERENCES IN THE 
SID REM VERSIONS OF BASIC AVAILABLE 
S5D IF D > E THEN 3SD 
S3D C = A/B 
5HU F = D/E 
SSD IF C = F THEN S^D 
SbD IF C > F THEN 71D 
S?D PRINT "YOU SHOULD TRY A SMALLER 

VALUED NUMBER FRACTION" 
SaO GOTO 3SD 
STD PRINT 

bDD PRINT "THAT'S SUPER, YOU MUST 
BE A 

hlQ PRINT "MATHEtlATICIAN" 
b3D PRINT "IF YOU WANT TO TRY AGAIN, 
TYPE 1" 

bMD PRINT "OTHERWISE TYPE 2" 

bSD INPUT C 

hhU IF C = 1 THEN LiO 
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b70 PRINT "GOOD-BYE, HATHEtlATICIAN " 

bflO STOP 

bID PRINT 

7DD GOTO 300 

710 PRINT "YOU SHOULD TRV A LARGER 

VALUED FRACTION" 

7S0 GOTO 3SD 

730 END 

This program will run on the Radio Shack TRS-80 computer 
with the following modification. Change "SUBSTR" to "MID$" in 
lines 400, 410, and 420. 
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PLOT YOUR 4 EQUATIONS 

This plotting program allows the user to plot functions by 
modifying lines 35 to 55. Q(l) to Q(4) are the four equations. If more 
equations are to be plotted, continue adding Q(n), but be sure to 
change line 15 to show the change in number of equations. 

This program is a sample; the equations already are given. 
Also, this program consists of an advanced plotting subroutine which 
may be used by itself in other programs. Note that the characters 
used for plotting may be changed as well. 

We also can change the width of the plot in inches by changing 
line 20. 

A flow chart has been given so the user can, if desired, use this 
plotting technique with other programs. 




PARAMETERS 
FOR SUBROUTINE 



GOSUB 75 



INITIALIZE 
PLOT ROUTINE 



FOR X = TO 36 



SET UP 

Q(1)-Q(4) 

^ GOSUB 100 




Flowchart for Plot Your 4 Equations Subroutine (1 of 2) 
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SETUP 




Q3 AND Q6 



& 



FOR 04 = 
1 TO 01 



SET UP 
FIRST O'S 



NEXT 04 



FOR 04 = 1 
TO 01 



REDUCE O'S 
BY 1 



NEXT 04 



FOR 04 = 1 
TO 01 



SCAN FOR 
VALUE 



NEXT 04 




BUMP 05 



THRU 1 



SELECT & 

PRINT 
"<", "*" etc. 




QE MULT 
OF 
6 

'no 



YES 



PRINT 



PRINT 
SPACE 



Q5 
MULT 
10 



YES 



Flowchart for Plot Your 4 Equations Subroutine ( 2 of 2) 



le Run 



*«* SAHPLE PROGRAM *** 

*++++++++++++++++++++++++++++++ 
+ < + + + 

+ > + + + 

+ * + + + 

+ < + + + 

+ > + + + 

++++++++++#++++++++++++++++++++ 
+ + < + + 

+ + > + + 

+ + * + + 

+ + < + + 

+ + > + + 

++++++++++++++++++++*++++++++++ 
+ + + < + 

+ + + > + 

+ + + * + 

+ + + < + 

+ + + > + 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+ + + + 
+++++++++++++++++++++++++++++++ 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+ + + + 
+++++++++++++++++++++++++++++++ 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+++++++++++++++++++++++++++++++ 



Sample Program 



i -r* 

•■f-f »■r5e•f•f■f- 
^ i 

: -r t 



*^ % 



•f J 
■f-f J- 

■r» 

: 
J 



■r f 



■•fj-r-r 

f 
f 



J 
J 

f { 



4- -f > - 


- I 




■r 


f 


4. ^ * - 


* 




•f 


i 


■T- X ■ 


f 


■T 


•f 








i -i- 


T- 

-•f-r-f'T-f-r-f-r-f 






4- i 



"f-r-f ^•r J -r-f-r-f' 
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Program Listing 



5 PRINT" »** SAHPLE PROORAH *♦*■ 
10 REM ASSIGN Q1=N0 CURVES»Q3=MAX WIDTHdN INCHES) 
15 LET Ql = 4 
20 LET Q3 = 6 
25 GOSUB 75 
30 FOR X = TO 36 
35 LET Q<1) = X/6 
40 LET Q<2) = (36-X)/6 
45 LET Y = SQR(9-( <X/6)-3)"2) 
50 LET Q(3) = 3-Y 
55 LET Q<4) = 3+Y 
60 GOSUB 100 
65 NEXT X 
70 STOP 

75 REM *** ENTRY POINT TO INITIALIZE PLOTTING SUBROUTINE*** 
80 LET 03 = Q3*10 +1 
85 LET 06 = 
90 RETURN 

95 REM *** ENTRY POINT TO PLOT ONE LINE *** 
IQO FOR Q4 = 1 TO Ql 
L05 LET Q<Q4) = Q<Q4)*10+1»5 
110 NEXT Q4 
115 LET Q5 = 
120 FOR 04 = 1 TO Ql 
125 LET 0(Q4) = Q(Q4>-1 
130 NEXT Q4 
135 FOR Q4 = 1 TO Ql 
140 IF Q(Q4) < THEN 160 
145 IF Q<Q4>< .333333334 THEN 205 
150 IF Q(Q4) < .666666667 THEN 215 
155 IF Q<Q4) <= 1 THEN 00225 
160 NEXT Q4 

165 IF <Q6/6-INT(Q6/6) ) = THEN 235 

170 IF <Q5/10-INT<Q5/10> )=0 THEN 235 

175 PRINT' 'i 

180 LET Q5 = Q5+1 

185 IF Q5<Q3 THEN 120 

190 PRINT 

195 LET Q6 = Q6+1 

200 RETURN 

205 PRINT' <" J 

210 GO TO 180 

215 PRINT'*' J 

220 GO TO 180 

225 PR I NT "> 'J 

230 60 TO 180 

235 PRINT'+'f 

240 GO TO 180 

245 REM »*» END OF SUBROUTINE *** 
250 END 



This program is not recommended for use on a TRS-80 compu- 
ter because of the length of time needed to plot a single line plus the 
graph does not fit on the video screen. 
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PLOT YOUR 10 EOUATIONS 



This plotting program will plot up to nine curves at once, which 
are entered at lines 110 to 150 in the form of Q(l) = function to 
Q(9) = function. 
(Q(n) = f(x)) 

We also can specify, once the functions are entered, which first 
n (up to nine) will be plotted. We supply the limits of the independent 
variable x and the limits of the range. 




CALCULATE OFFSETS 
FOR SCALING 



PRINT SCALE HEADER 



PLOT 



FOR 
LOOP 




Flowchart for Plot Your 10 Equations 
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Sample Run 



ENTER NUHBER OF CURVES TO BE PLOTTED 
? 3 

ENTER THE LOWER LIMIT OF THE IND VARIABLE 
? 10 

ENTER THE UPPER LIMIT OF THE IND VARIABLE 
? 100 

ENTER INCREMENT VALUE OF THE IND VARIABLE 
? 5 

ENTER THE LOWER LIMIT OF THE RANGE 
? 10 

ENTER THE UPPER LIMIT OF THE RANGE 
? 100 

HORIZONTAL RANGE : 10 TO 100 IN INCREMENTS OF 1.8 
VERTICAL RANGE : 10 TO 100 IN INCREMENTS OF 5 

0.0 10.0 20.0 30.0 40, 



ENTER NUMBER OF CURVES TO BE PLOTTED 
? 8 

ENTER THE LOWER LIMIT OF THE IND VARIABLE 
? 3.25 

ENTER THE UPPER LIMIT OF THE IND VARIABLE 
? 7.87 

ENTER INCREMENT VALUE OF THE IND VARIABLE 
? 4 

ENTER THE LOWER LIMIT OF THE RANGE 
? 23 

ENTER THE UPPER LIMIT OF THE RANGE 
? 34 

HORIZONTAL RANGE ! 23 TO 34 IN INCREMENTS OF .22 
VERTICAL RANGE ! 3.25 TO 7.87 IN INCREMENTS OF 4 

0.0 10.0 20.0 30.0 40.0 
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Program Listing 



5 PRINT "ENTER 
10 INPUT A 
15 PRINT'ENTER 
20 INPUT B 
25 PRINT'ENTER 
30 INPUT C 
35 PRINT "ENTER 
40 INPUT D 
45 PRINT "ENTER 
50 INPUT E 
55 PRINT "ENTER 
60 INPUT F 
65 LET K=0 
70 LET L=--(F-E)/50 

75 PRINT • HORIZONTAL RANGE 5 "Ef TO "Fr" IN 
INCREMENTS OF "L 

80 PRINT " VERTICAL RANGE J "B5" TO "CJ" IN 
INCREMENTS OF "D 

■85 PRINT 

'90 GOSUB 510 

95 GOSUB 520 
100 FOR X=B TO C STEP D 
105 LET D==0 
110 
115 
120 
125 
130 
135 
140 
145 
150 

155 FOR 1=1 TO A 

160 LET P<I>=INT( (Q<I)-E+L/2)/L)+l 

165 LET R(I)=I 

170 NEXT I 

175 FOR 1=^1 TO A-1 

180 FOR J==I + 1 TO A 

185 IF P(I)<>P(J) THEN 225 

190 LET R=P(I) 

195 LET P(I)=P<J) 

200 LET P(J)=R 

205 LET R=R<I) 

210 LET R<I)=R(J) 

215 LET R(J)=R 

220 GOTO 175 

225 NEXT J 

230 NEXT I 

235 LET J=l 

240 FOR 1=2 TO A 

245 IF P(I)<>P(I~J) THEN 270 

250 LET P<I)=2E76 

255 LET R<I~J)=4E44 

260 LET J=J+1 



NUMBER OF CURVES TO BE PLOTTED" 
THE LOWER LIMIT OF THE IND VARIABLE" 
THE UPPER LIMIT OF THE IND VARIABLE" 
INCREMENT VALUE OF THE IND VARIABLE" 
THE LOWER LIMIT OF THE RANGE" 
THE UPPER LIMIT OF THE RANGE" 
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265 GOTO 00275 
270 LET J=l 
275 NEXT I 
280 LET K=K+1 

285 IF 5*INT( <K-1 )/5)=K-l THEN 300 

290 PRINT " 

295 GOTO 305 

300 PRINT " ~'y 

305 FOR 1=1 TO A 

310 IF P(I)=2E76 THEN 480 

315 IF (P(I)~1)*(51-P(I) )<0 THEN 480 

320 LET Ei=P<I)-ri-l 

325 IF 0=0 THEN 335 

330 GOSUB 530 

335 IF R<I):=4E44 THEN . 470 

340 IF R(I)>1 THEN 355 

345 PRINT "1" J 

350 GOTO 475 

355 IF R(I):>2 THEN 370 

360 PRINT "2"? 

365 GOTO 475 

370 IF R(I)>3 THEN 385 

375 PRINT "3"? 

380 GOTO 475 

385 IF R(I)>4 THEN 400 

390 PRINT 'A'i 

395 GOTO 475 

•400 IF R<I)>5 THEN 415 

'405 PRINT "5-; 

'410 GOTO 475 

■415 IF R<I)>6 THEN 430 

420 PRINT '6"? 

425 GOTO 475 

430 IF R<I>>7 THEN 445 

435 PRINT '7' 5 

440 GOTO 475 

445 IF R<I)>8 THEN 460 

450 PRINT "S" ? 

455 GOTO ' 475 

460 PRINT '9" 5 

465 GOTO 475 

470 PRINT "X" J 

475 LET D=P(I) 

480 NEXT I 

485 PRINT 
490 NEXT X 
495 GOSUB 520 
500 GOSUB 510 
505 STOP 

510 PRINT" 0.0 10.0 20.0 30 

515 RETURN 

520 PRINT" ' " 

525 RETURN 
530 LET M==l 

535 IF INT < 2*11/ ( 2"V ) )=0 THEN 
540 LET V=:y+1 
545 GOTO 535 
550 FOR T==l TO M-l 
555 IF D^^=2*INT(D/2> THEN 640 



550 



100 



560 


IF T>1 


THEN 


00575 


565 


PRINT 






570 


GOTO 


.640 




575 


IF T>2 


THEN 


590 


580 


PRINT 


■ ■ • 




585 


GOTO 


640 




590 


IF T>3 


THEN 


605 


595 


PRINT 


■ a < 




600 


GOTO 


640 




605 


IF T>4 


THEN 


620 


610 


PRINT 




" t 


615 


GOTO 


640 




620 


IF T>5 


THEN 


635 


6'^5 
6S0 


PRINT 






bdto 


640 




635 


PRINT 






640 


LET D= 


INT(D/2) 


645 


NEXT T 






650 


RETURN 






655 


END 







This program is not recommended for use with the Radio Shack 
TRS-80 computer because there may be a scrolling problem if the 
graph is more than 13 lines long. 
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POLAR GRAPHIC SUBROUTINE 

This program allows the user to plot a curve in a polar coordi- 
nate plot. The function to be plotted is entered at line 105 in the form 
of A = F(c). Up to 90 points may be plotted with an increment 
adjustment to minimize distortion of the generated curve. 



INPUT PARAMETERS 



CALCULATE SCALING 




Flowchart for Polar Graphic subroutine 
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Sample Run 



DDiaS A = TAN{e3«C} 



PROGRAH POLAR 



++++++**««**POLAR COORDINATE PLOT******++++++ 



ENTER UALUE OF ENDPOINTS (ABS) 
? 7 

X INCREMENT = .233333 
Y INCREMENT = .388889 

* 
* 
* 
* 

* 

* 
* 
* 
* 

* 

+++ ++ * ++ + 

+ +++*+++ + 
+++ 
+++ 

*******«******************************+* 

+*+ 
+++ 
+++ 

+ +++*+++ + 
+++ ++ * ++ + 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
Y 
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DOIDS A = TAN{a*C} 



RUN 

PROGRAH POLAR 

++++++******POLAR COORDINATE PLOT******++++++ 



ENTER VALUE OF ENDPOINTS (ABS> 
? 6 



X INCREMENT 
Y INCREMENT 



•333333 



* 
* 
* 

* 
* 
* 

+ * + 

* 

+ * + 

* 
* 

+ * + 

+ * + + 

+ * 
+ ++ * ++ + 

+ +*+ + 

+++ + +++ 
ilc*******************************^-******* 

+++ + +++ 
+ +*+ + 

+ ++ * ++ + 

* + 

+ + * + 

+ « + 

* 
* 

+ * + 

* 

+ * + 

* 
* 
* 
* 
* 
* 
* 
Y 
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00105 A=SIN(C) 
RUN 



PROGRAM POLAR 



++++++j|!*KcK<#)KPOLAR COORDINATE PLOT******++++++ 



ENTER VALUE OF ENDPOINTS (ABS) 
? 4 

X INCREMENT = .133333 
Y INCREMENT = ,222222 

* 
* 

* 
* 

* 
* 

+++++++ 
++ * ++ 
+ * + 

++ * ++ 

*##*#*«#*******«***************+********************** 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
Y 
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00105 A=TAN(C> 
RUN 



PROGRAH POLAR 



++++++******POLAR COORDINATE PLOT******++++++ 



ENTER VALUE OF ENDPOINTS (ABS) 
? 6 

X INCREMENT = .2 

Y INCREMENT = .333333 

* 

+ * + 
* 
* 
* 
* 

+ * + 
* 
* 

+ * + 
* 

+ * + 
+ * + 
+ * 
+ * + 
+ * + 
++ * ++ 
++ * ^+ 

++ * ++ 
++ * ++ 
+ * + 
+ * + 
* + 
+ * + 
+ * + 
* 

+ * + 
* 
* 

+ * + 
* 
* 
* 
* 

+ * + 
* 

Y 
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Program Listing 



5 REH THIS PROGRAH GENERATES A POLAR PLOT 
10 REM OF THE FUNCTION (EQUATION) PLACED ON LINE 105 
15 REM THE FUNCTION MUST BE WRITTEN AS A=F(C) 

25 PRINT 

30 PRINT ■++++++******POLAR COORDINATE PLOT******++++++" 
35 PRINT 
40 PRINT 
45 PRINT 

50 DIM XdOO) »Y(100) 
55 Z=90 

60 PRINT-ENTER VALUE OF ENDPOINTS (ABS)' 
65 INPUT Q 
70 PRINT 

75 PRINT "X INCREMENT ='fQ/30 
80 PRINT 

85 PRINT'Y INCREMENT ="?Q/18 

90 PRINT 

95 FOR J=l TO Z 
100 C=.06981317*J 
105 

110 X(J>=INT( ( <A*C0SCC>/Q+l)*30)+.5) 

115 Y(J)=INT( ( (-A*SIN(C)/Q+l>*18)+.5) 

120 NEXT J 

125 FOR J=l TO Z 

130 FOR 1=1 TO Z-J 

135 D=X<I) 

140 E=Y(I> 

145 IF E<=Y<I+1) THEN 170 
150 X(I)=X<I+1) 
155 Y<I)=Y<I+1) 
160 X(I+1)=D 
165 Y(I+1)=E 
170 NEXT I 
■ 175 NEXT J 
480 R=l 

185 FOR K=0 TO Z-1 

190 IF Y<K+1)>=0 THEN 200 

195 NEXT K 

200 FOR J=0 TO 36 

205 R=R+K 

210 K=0 

215 IF R>Z THEN 225 

220 IF Y<R)=J THEN .250 

225 IF J=18 THEN 240 

230 PRINT TAB(30);"*"J 

235 GOTO 470 

240 T=Z+1 

245 GOTO 410 

250 FOR P=R TO Z 

255 IF Y<P)>Y(R) THEN 270 

260 K=K+1 

265 NEXT P 

270 IF K=l THEN 320 

275 FOR 1=1 TO K 

280 FOR P=l TO K-1 

285 D=X<R+P-1) 

290 F. = X(R+P> 

.95 IF D<=E THEN 310 

300 X<R+P-1)=E 

305 X(R+P)=n 

310 NEXT P 

315 NEXT I 

320 IF J=18 THEN 405 



325 P=~l 
330 T-0 

335 FOR S=0 TO K-1 

340 IF X(R+S)=P THEN 385 

345 P=X(R+S) 

350 IF P=30 THEN 370 

355 IF P<30 THEN 375 

360 IF T=l THEN 375 

365 PRINT TAB(30)f"*'J 

370 T=l 

375 IF P>60 THEN 470 
380 PRINT TAB<P)J'+"J 
385 NEXT S 

390 IF T=l THEN 470 
395 PRINT TAB<30)J'*'} 
400 GOTO 470 
405 T=R 

410 FOR 1=0 TO 60 

415 IF X<K)<>I THEN 455 

420 PRINT"+'J 

425 FOR S=T TO R+K-1 

430 IF X(S)--=X<T) THEN 445 

435 T=S 

440 GOTO 160 
445 NEXT S 
450 GOTO 460 
455 PRINT •*■» 
460 NEXT I 
465 PRINT'X"$ 
470 PRINT 
475 NEXT J 

480 PRINT TABOO) >'Y" 
485 END 



108 



MATH WHIZ KID OUIZ 

The following program is termed a CAI (Computer Assisted 
Instruction) program. The most famous and possibly the best CAI 
system is called PLATO. Unfortunately, PLATO requires special 
equipment such as a full graphics terminal which typically uses a gas 
plasma display. Quite often the screen also will be touch sensitive. 
As you can see, the full PLATO set-up can be quite expensive. 

This program does not require the features of PLATO, but it 
does show how such systems respond. Not only does this program 
instruct with arithmetic problems, but it is also fun to play. 




INITIALIZE VARIABLES 



1 GENERATE 2 NUMBERS 






USE SUBROUTINE FOR 
PROBLEM FORMAT 












INPUT USER'S 
ANSWER 





YES 




CORRECT 



NO 



REWARD 
MESSAGE 

AND 
UPDATE 



ERROR 
MESSAGE 
AND UPDATE 




ENDING MESSAGE 



INPUT CONTINUE MESSAGE 




Flowchart for Math Whiz Kid Quiz 
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odiiipiB nmi 

RUN 

UE ARE GOING TO PRACTICE MULTIPLICA- 
TION 

WHAT IS YOUR NAME 
f KEN 

KENi THERE ARE ID PROBLEMS. 

THE COMPUTER UILL USE ONE OF TWO FORMS 

EITHER 

A X B = f 

OR 

A 

XB 
f> 

1. t X H = f eM 
YOU DID IT 

s. a X e = f lb 

EXCELLENT 

3. ^ X t = f EH 

VERY GOOD 

M. a 

XI 

? a 

NOT BAD 

S. 3X2 = /?b 
EXCELLENT 
b. 4 
X3 

NOT BAD 

7. a X a = f bM 

HEY THATS ALRIGHT 
110 



fi. =1 

13 
f a? 

EXCELLENT 
T. 3 
XH 
f 12 
VERY GOOD 
]>□• a 

xa 

EXCELLENT 

yE ARE NOW FINISHED 

THE COMPUTER HOPES YOU ENJOYED THIS 
WELL, KEN 

OF 10 PROBLEMS IQO'/. 

WERE CORRECT 

AND Qy. yER€ INCORRECT 

TO TRY AGAIN TYPE li IF NOT 

f D 

RUN COMPLETE 
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Program Listing 

10 REtl THIS PROGRAM DEMONSTRATES THE 
50 REM CLASS OF PROGRAflS TERMED CAI 
3D REM THIS EXAMPLE GENERATES RANDOM 
HO REM PROBLEMS OF MULTIPLICATION AND 
SO REM RETURNS REWARD AND PUNISHMENT 
bO REM REMARKS AT RANDOM. 
70 REM DEFINITION OF VARIABLES 
flO REM USERS ANSWER = A 
TO REM NUMBER OF PROBLEMS = C 
100 REM THE NUMBERS TO BE MULTIPLIED 

= D1-, DS 
110 REM THE TRUE ANSWER = D3 
lED REM POINTER TO MESSAGE = M 
130 REM TOTAL NUMBER OF PROBLEMS = N 
140 N = 10 

ISO REM USERS NAME = N* 
IbO REM PERCENTAGE RIGHT = PI 
170 REM PERCENTAGE WRONG = P2 
IfiO REM CORRECT ANSWERS = R 
no REM WRONG ANSWERS = W 
500 REM USE RANDOMIZE SO EACH TIME 
THE 

210 REM PROGRAM IS USED WE WILL HAVE 
A 

550 REM DIFFERENT RANDOM SEQUENCE 

GENERATED 
530 RANDOMIZE 
5M0 PRINT 
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BSD PRINT "UE ARE GOING TO PRACTICE 

MULTIPLICATION" 
5bD PRINT 

aaO PRINT "WHAT IS YOUR NAME" 
SaS INPUT N* 
5=10 PRINT 

3DD PRINT N*^ "i THERE ARE N^ 

' 'PROBLEflS. »' 
31D PRINT 

320 PRINT "THE COMPUTER yiLL USE ONE 
OF TyO FORMS" 



330 


PRINT 






3M0 


PRINT 


"EITHER" 




3S0 


PRINT 


" A X B = 


f " 


3bQ 


PRINT 


"OR" 




370 


PRINT 


"A" 




360 


PRINT 


"X B" 




3=10 


PRINT 


t 1 • t 




MOD 


PRINT 


1 1 ^11 




mo 


PRINT 






M5D 


PRINT 






M30 


C = 1 






MMO 


R = D 






MSD 


U = D 






MbO 


REM GENERATE RANDOM NUMBERS 


M7D 


Dl = 


INT€RNDCD} 


* 10} 


MflO 


D5 = 


INTCRND{D> 


* 10} 


MID 


D3 = 


Dl * D5 




SDO 


REM BY CHANGING 


THE STATEMENTS 


SIO 


REM M70 AND AND 


MftO UE CAN 



SED REn CHANCE THE NUMBER OF DICITS 
S3D REM OR THE MAGNITUDE OF THE NUM- 
BERS 

SMD REM TO BE MULTIPLIED. 
SSD REM BY CHANGING THE STATEMENTS, 
SbD REM ESPECIALLY THE REMARKS AND THE 
S7D REM NUMBERS FOR CONSTANTS-, liJE CAN 
TAILOR 

SfiD REM A GAME OR PROGRAM TO OUR 
STD REM TASTES. OF COURSE A PROGRAM 
MAY BE 

too REM RUN EXACTLY AS FOUND-, BUT 
THERE IS 

blD REM FUN AND INSTRUCTION IN MODI- 
FYING 

k2D REM PROGRAMS AS WELL. 
t3D REM THE FOLLOWING SUBROUTINES 
GENERATE 

mo REM EITHER ONE OF THE TWO FORMS 

OF PROBLEMS. 
LSD ON INT-CE * -CRNDiO}}} + 1 GOTO hhO-, kBQ 
hhO GOSUB IDDO 
b70 GOTO bio 
baO GOSUB lOSD 

bTO REM UE HAVE RETURNED FROM THE 

SUBROUTINE 
700 REM UE NOU NEED AN ANSWER 
710 INPUT A 

7E0 REM UE NOU PRINT AT RANDOM 
730 REM A MESSAGE ABOUT 
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REn THE ANSUER. UE ALSO HAVE TO 

7S0 REM INCREMENT THE ANSUER COUNTER. 

7bD IF A <>D3 THEN 7=10 

770 GOSUB 113D 

760 GOTO 800 

7^10 GOSUB 1310 

aOO REfl UPDATE THE VALUE OF C 

flio reh the number of problems 

320 C = C + 1 

330 IF C < = N THEN SbO 

fi^O REM UE WILL NOU CALCULATE 

aSD REM THE PERCENTAGE OF RIGHT 

flt.0 REM OR WRONG ANSWERS 

370 PI = INT-CIDD * R/N> 

SaO P5 = INT-CIDD * U/N} 

310 PRINT 

TOD PRINT "UE ARE NOU FINISHED" 
TIO PRINT "THE COMPUTER HOPES YOU 

ENJOYED THIS." 
TED PRINT 

130 PRINT "yELLi"i N* 

mo PRINT "OF"i N^ "PROBLEMS-,"^ 

Pli ""/i" 
ISO PRINT "UERE CORRECT." 
ISO PRINT "AND"^ P2' "^" UERE 

INCORRECT. • ' 
IbO PRINT "TO TRY AGAIN-i TYPE L-i IF 

NOT-, D" 
170 INPUT L 
130 IF L = 1 THEN mO 



™ STOP 

1000 REM THIS SUBROUTINE PRINTS 

1010 REM A HORIZONTAL PROBLEM 

1050 PRINT 

1030 PRINT Ci Dl^ »» X»'^ 

IDMO RETURN 

lOSO REM THIS SUBROUTINE PRINTS 

IDbD REM A VERTICAL PROBLEM 

1070 PRINT 

lOaO PRINT Ci''.'M TABC7>S 1)1 

10^0 PRINT TABtbJ^ "X • ' D2 

1100 PRINT TABC?}^ tt__«ti 

1110 PRINT TABCb>^ 

1120 RETURN 

1130 REM THIS SUBROUTINE HANDLES 

imO REM RESPONSES TO CORRECT ANSWERS 

USD M = INTCb * RN1>-C0}> + 1 

llbO ON M GOTO 1170i 1110-, 1210, 1230-1 

12S0-, 1270 

1170 PRINT "NOT BAD' ' 

llfiO GOTO 12fi0 

inO PRINT "HEY, THAT'S ALRIGHT." 

1200 GOTO 12fiD 

1210 PRINT "YOU DID IT" 

1220 GOTO 12flD 

1230 PRINT "THAT'S CORRECT" 

1240 GOTO 12aD 

1250 PRINT "EXCELLENT" 

12b0 GOTO 12flD 
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1570 PRINT "VERY GOOD" 

LEflO PRINT 

u3TD R = R =+ 1 

'y300 RETURN 

1310 REM THIS SUBROUTINE HANDLES 

INCORRECT 

1350 REM ANSWERS AND RESPONDS 

1330 n = INTCH * RND-CD>} + 1 

13M0 ON n GOTO 13SD-i 1370i 13T0-, 

imo 

13S0 PRINT "SORRY-, THAT'S WRONG" 
13tD GOTO mSO 
1370 PRINT "HOU COULD YOUf" 
1380 GOTO 1M50 

13T0 PRINT "THAT'S NOT RIGHT" 

moo GOTO mso 

miO PRINT "CAN'T YOU MULTIPLY?" 
m5D PRINT 

m30 PRINT "THE CORRECT ANSWER IS 
D3 

IMHO PRINT 
mso W = U =+ 1 
mbO RETURN 
m70 END 

This program also will run on the Radio Shack TRS-80 compu- 
ter with no modifications needed. 
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SHIP IN THE WATER 

This program allows the user to input the parameters of a hull 
and water conditions. The program returns the ampular and vertical 
displacements, as well as plotting the displacements separately. 

As we are interested in only the horizontal position of the center 
of gravity, and not the vertical, we can place it as the intersection of 
water line and lateral division of hull. 

The more sections we divide the hull into, the more precise will 
be the results as numerical integration is used, which depends on the 
number of entries for precision. 

(start) 





HEADER 












INPUT PARAMETER 



GET WATER CONDITIONS 



GET WIND CONDITION 



USE LOOK UP 
TABLE 



Flowchart for Ship in the Water 



PRINT RESULTS 



GRAPH ANGULAR 
POSITION 



GRAPH VERTICAL 
POSITION 



( END 

118 



LATERAL DIVISION 
■ ■ OF HULL 



SHIP'S HULL 




WATER LINE 
AT EQUILIBRIUM 



Fig. 1-5— The more sections the hull is divided into, the more precise the result. 
Sample Run 



HODELING OF THE MOTION OF A HULL 
UNDER niFFEF^ENT SEA CONDITIONS 



** HULLS ARE ASSUMED TO BE LATERALLY SYMETRICAL ** 
** THEREFORE ONLY ENTER THE INFORMATION FOR THE ** 
** R-IGHT SECTIONS! THE LEFT WILL BE MIRRORED ** 

ENTER # OF SECTIONS ? 5 

ENTER BEAM IN METERS? 30 

ENTER Y? THE LENGTH OF THE SECTION BELOW 
THE WATER LINE AT EQUILIBRIUM 
X IS THE HI STANCE FROM THE 
CENTER OF GRAVITY OF THE HULL TO 
THE CENTER OF EACH SECTION 

SECTIOtn! # 1 X= 1.5 



SECTION # 
Y = ? 12 



X 



SECTION # 3 
Y^^? 11 



7 1. 5 



SECTION # 4 
Y==? 10 



X- 



SECTION # 
Y==? 9.5 



X 



13.5 
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ENTER DENSITY OF HULL 
? r.098 



TYPE OF WATER BODIES AMAILABLE 



SHALL LAKES AND RIMERS 


< 1 ) 


LARGE LAKES 


<2) 


SHALL BAYS AND COMES 


<3> 


LARGE BAYS 


(4) 


OPEN OCEAN 


(5) 


TYPE? 2 




WIND SPEEDS AMAILABLE 




2H/SEC (7.2KH/HR) 


( 1 ) 


5H/SEC (18KM/HR) 


(2) 


lOM/SEC <36KM/HR) 


(3) 


20H/SEC <72KM/HR) 


(4) 



UIND SPEED? 3 

ENTER TIME INTERMAL < STEP SIZE) 



TIME MERTIl'i'il I Obi TJ ON ANGULAR POSITION 

(SEC) (METERS) (DEGREES) 







4,89791E-8 


i 


-l ,73434 


359.963 


1,5 


-2 . 49b,j4 


359,93.5 




■■■2,6!:i6li 


5,245S9E~2 






,250372 


3 




359.917 


3 , 5 


J, 4Hno,ir -.! 

1 - ^ :•/.,> 1 


359.397 
,132877 


4 

4,5 


^3.V>Li 


1 ,35089 




,',;!■.) --3^ 


359.792 




. 1 950 


357,06 


6 


1 .LiJ 5,U 


,297036 


6 <, 5 


.5/ir!<)3 


6.31512 




M)4.' 


359,708 






346.488 






359.431 






28,8404 


9 , 5 


-l , 1 V069 


8,39775 
304.882 


1 




296,189 
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ANGULAR POSITION PLOTTED AGAINST TIHE 



FOR X! TOP = .5 BOTTOH = 10 INCREMENT 

FOR y"; LEf-T = RIOHT = 360 INCREHENT 

I.,^ ..I I I.. 

, + 

! + 
, + 

, + 



+ 



MERTICAL POSITION PLOTTED AGAINST TIME 



FOR X! TOP = .5 BOTTOM - 10 INCREMENT 

FOR Yl LEFT = -^S RIGHT = 25 INCREMENT 



Program Listing 



100 HEM 
200 PHINr 
300 PHINT 
AOO PHINf 
500 PHINI 
600 PHINT 

700 PHIN I ••„«.._..._ .„ 

800 PHINfMOOELING OF THE MOllON OF A HULL" 

900 PHINr"UNOFH OIFFFWENT SEft CONDI! IONS" 

1000 PHINT" — — — H 

1100 MEM MODEL NEGLECTS VISCOLS DAMPING ACTION 

1200 REM OF THF WATER* THUS IF THE HESONANT FREQUENCY AND 

1300 REM AND The PERIOD COINCIDEt THE HULL WILL APPEAR TO 

1400 REM JUMP OUT OF THE WATEH, 

1500 DIM A{50) ,Y(50) 

1600 DIM t4(250) 

1700 DIM E3C250) 

1800 DIM fcl (250) 

1900 DIM B(50) 

2000 E2r0 

2100 

2200 

2300 REM MODELING OF A SHIP«S HULL 
2400 REM INPUT HULL CROSS SEC HON 
2500 REM INPUT X AND Y 

2600 HEM A DISTANCE FROM CENTER OF GRAVITY TO 
2700 REM CENTER OF SECTION 

2800 REM Y LENGTH OF SECTION BELOW *ATEH AT EQUILIBRIUM 
2900 PKIM 
3000 PHIM 
3100 PRINT 

3200 PRINT"«« HULLS ARE ASSUMED TO BE LATERALLY SYMEIRICAL •»" 
3300 PRINT"«» THEREFORE ONLY ENTER ThF INFORMATION FOR THF ••" 
3400 RHIN(M«« RIGHT SECTIONS, THE LEf' T WILL BE MIHfiOREO 
3500 PHlNr 

3600 PHIMiienTeR * OF SECTIONS"! 
3700 INPUT S 

3800 REM CHECK NOT TO EXCEED *(50) 
3900 IF S<1 OR S>50 THEN 4100 
4000 GOTO 04300 

4100 RNIM"NUMBEH OF SECTIONS fUST Bt BETWEEN 1 AND 50" 
4200 GOTO 03600 
4300 PRINT 

4400 HEM INPUT BEAM AND COMPUTE DISTANCE OF EACH SECTION 

4500 PHIM"ENTER BEAM IN METERS"; 

4600 INPUT B3 

4700 IF BJ<=0 THEN 4900 

4fl00 GOTO 5100 

4900 PHINT'iBEAM MUST BE GHEAIFR THAN 2EH0" 

5000 GOTO 04500 

5100 REM (■ IND HALF REAM 

5200 H3aBJ/2 

6300 REM FIND WIUTH OF EACH SECTION (COMMON) 
5400 B3aBj/S 

5500 REM FIND CENTER OF EACH SFCTION 

5600 REM WITH RESPECT TO CENTER OF OHavITY 

5700 FOR jml To S 

58Q0 X!J)aJ»B3-(B3/2) 

5900 NEXT J 

6000 PRINT 

6100 PRINT"ENTeR Y. the LENGTH OF THE SECTION BELO*"" 

6200 PRINT"THE WATER LINE AT EQUILIBRIUM" 

6300 PRINT"* IS THE DISTANCE FROM THE" 

6400 PHINT"CENTER OF GRAVITY OF THE HULL TO" 

6500 PRINT"THE CENTER OF EACH SECTION"" 

6600 PRINT 
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6700 
6800 
6900 
7000 
7100 
7200 
7300 
7400 
7500 
7600 
7700 
7800 
7900 
8000 
8100 
8200 
8300 
8400 
8500 
8600 
8700 
8S0O 
8900 
9000 
9100 
9200 
9300 
9400 
9500 
9600 
9700 
9800 
9900 
lOOOO 
10100 
10200 
10300 
10400 
10500 
10600 
10700 
10800 
10900 
11000 
lllOO 
11200 
11300 
U4QQ 
11500 
11600 
11700 
11800 
11900 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
12900 
13000 
13100 
13200 
13300 
13400 
13500 
13600 



FOR J«l To S 

PKINT"SECTION «"IJt" X="|X(J) 
PRINI"Y""I 
INPUT Y(J) 
PHINF 
NEXT J 
PHINT 

PR1NT"EMEH DENSITY OF HULL" 
INPUl SI 

IF 51 <«0 THEN 7800 
GOTO 8000 

PKINT"DENSITY MUST BE GREATFH THAN ZEHO" 
GOTO 7400 

HEM APPNOXIMAIE ROUYANCY FACTOH OF EACH SECTION 
Bl=Si«9.8 
FOP J»l TO S 
«lJ)=B3»Y(J)«fal 
NEXT J 

HEM MASS ^ MOMENT OF INTERTA OF CHOSS SECTION 
M=0 
I»0 

FOR J«l TO S 
MiaBlJ)/9,8»Y(J) 
MaM*Ml«2 
l3l*Ml«X (J)»2 
NEXT J 

HEM INPUT SEA ANP WIND CONDITIONS 
PNIM 

PHINT"TYPE OF WATER BOOIES AVAILABLE' 
PKINT". 



PHIMt'SMALL LAKES AND RIVERS <1)' 
PRINT"LARGE LAKES (2)' 
PH1M"SMALL BAYS AND COVES (3)' 
PKINT"LAHGE BAYS (4)' 
PHINT"OPE.,( OCEAN (5)' 
PHIN I 

PkINT'TYPe"! 
INPUT S3 
S3=InT (53) 

IF S3<1 OR S3>5 THEN 10800 

GOTO noon 

PRINP'INPUT MAY RANGE FROM 1 TO S ONLY" 
GOTO 10300 
PHIN f 

PHINT"WIND SPEEDS AVAILABLE" 

PHINT" " 

PRINT"2M/SEC (7.2KM/HR) (1)" 
ERIkI"-5M/SEC (ISKM/HR) 12)" 
PR1NT"10M/SEC {36KM/HR) (3)" 
PRINT"20M/SEC (72KM/HH> (4)" 
PRINT 

PHINI'imiNO SPEED"! 
INPUl S4 
S4»InT (S4) 

IF S<»<1 OR S4>4 THEN 12300 
GOTO 12500 

PRINT"INPUT may RANGE FROM 1 TO 4 ONLY" 
GOTO 11800 
GOSUb 23600 

REM INITIALI2E INTEGRATION VARIABLES 

Z=0 

Z1«0 

VaO 

V1»0 

AaO 

AlaO 

HaO 

RlaO 

QaO 

QUO 



13700 C«0 
13800 C1«0 
13900 TsO 

UOOO WEM INITIALIZE STEP SIZE 
14100 REM iNlTlALIZE PRINT INTERVAL 
14200 PNIM 

14300 PHIN ["ENTER TIME INTERVAL (STEP SIZE)" 

14400 INPLT 

14500 IF 0<0.1 THEN 14700 

14600 GOTO 14900 

14700 PHINT"TIME INTERVAL MUST BE GREATER THAN 0.1 SECONDS" 
14800 GOTO 14300 
14900 K=0 
15000 Kl«0,l/O 
15100 PRINT 

15200 REM SET * OF SECONDS OF RUNNING TIME FOR MODEL 
15300 PRINr"ENTER TOTAL TIME IN SECONDS"! 
15400 INPLT S5 
15500 S5=InT(S5) 

15600 IF Sb<i Then 15900 

15700 IF 5b<D Then 16100 

15800 GOTO 16500 

15900 PHINT"T0TaL TIME MUST RE GREATER THAN 1 SEC" 

16000 GOTO 15300 

16100 PHINT"RUNNING TIME MUST 8E GREATER THAN TIME INTERVAL" 

16200 PRlNr"FOR ACCURATE RESULIS RUNNING TIME SHOULD BE AT" 

16300 PRINM'LEAST lu TIMES GREATER THAN THE TIME INTERVAL" 

16400 GOTO 15300 

16500 PHIM 

16600 PRIM 

16700 PRIM 

16800 PHlNT"riME VERTICAL POSITION ANGULAR POSITION" 

16900 PRINT'MSEC) (METERS) (0E(3WEES)" 

imao pjiiiii"-----------------«--i».- 

17100 HEM SUM FORCES AND MOMENTS ON THE SECTIONS 
17200 E2«E2*1 

17300 REM PREDICT VERTICAL MOTION 

17400 REM A V Z ARE ACCELERATION SPEED AND POSITION 
17500 AUF/M-9.8 
17600 V*V1«0«AI 
17700 Z»ZI*D«V1 

17800 REM PREDICT ANGULAR MOTION 

17900 REM C Q R ARE ACCELERATION SPEED AND POSITION 
18000 C1>G/I 
18100 Q»Q1*D*C1 
18200 R-RI*D*Q1 

18300 REM SUM NEW FORCES AND MOMENTS FOR CORRECTOR FORMULAE 
18400 K«K*i 
18500 T»T*D 
18600 GOSUU 21200 

18700 REM CORRECT VERTICAL MOTION 

18800 Asr/M-9.8 

18900 V»VI*0/2«(A*A1) 

19000 Z»ZI*D/2«(V*V1> 

19100 REM CORRECT ANGULAR MOTION 

19200 CG/l 

19300 Q«(31*0/2»(C*C1) 

19400 R»RI*D/2«(Q*Q1) 

19500 REM PREPARE FOR NEXT STEP 

19600 V1»V 

19700 Z1»Z 

19800 Ql'Q 

19900 R1«R 

20000 IF K<Ki Then 17200 

20100 REM FIND TOTAL DEGREES ROTATION 

20200 E»R«57.296 

20300 REM FIND POSITION USING MOD 360 

20400 E»360«( (E/360)-(INT(E/360) ) ) 

20500 REM 

20600 E4(E2)»Z 
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20700 E3(E2)=T 

20800 El (E2)aE 

20900 PHINT T»2,E 

21000 IF T<S5 Then 17200 

mil lV»clL^Tm SUM FORCERS AND MOMENTS ON SECTIONS 
21300 F«0 
21400 G»0 

21500 FOR J«l To S 

ll'yll ^ :°!s";^ERTrCAtToSITION OF -TER SURFACE .T SECTION . 

21800 REM wl IS LENGTH OF HULL BELOW WATER SURFACE 

21900 W=H/2«SIN(6.2e318«(T/P*X(j)/L) ) 

22000 ip(l.Y{J)-Z-SIN(R)«A(j)*W 

22100 IF *1>0 THEN 22300 

22200 WlsO 

22300 FlaB(J)«i*l 

22400 GlaXCJJ'Fl 

22500 REM MIRROR IMAGE GIVES NEG HALF 
22600 lKaH/2«SlNt6.28318»(T/P-X(J)/L) ) 
22700 wlsY(J)-Z*SIN(R)»X(J)*W 

22800 IF »ii>o Then 23000 

22900 »*1»0 
23000 F2«B(J)«*1 
23100 G2«-A<J)«F2 
23200 F3F*Fl*F2 
23300 G»G*G1*G2 
23400 NEXT J 

23500 RETURN „ 
23600 ON S3 GOTO 23700, 26200, 28700, 31200, 33700 
23700 ON S4 GOTO 23800, 24400, 25000, 25600 
23800 REM 1,1 

23900 REM bMALL LAKES AND RIVEhS AT 2M/SEC 
24000 P=0,6 
24100 L=0.56 
24200 H»0.02 
24300 GOTO 36100 

24400 REM 1,2 , ^. 

24500 REM bMALL LAKES AND RIVERS AT bM/SEC 

24600 P=0.8 

24700 L»0,1 

24800 Ha0.05 

24900 GOTO 36100 

25000 REM 1,3 

25100 REM SMALL LAKES AND RIVERS AT lUM/SEC 

25200 P=1.25 

25300 L«2.4 

25400 H=0.08 

25500 GOTO 36100 

25600 REM 1,4 

25700 REM bMALL LAKES AND RIVFhS AT 20M/bEC 
25800 P=2.5 
25900 L«10.0 
26000 HsO.25 
26100 GOTO 36100 

2620O ON S4 GOTO 26300, 26900, 27500, 28100 
26300 REM 2,1 

26400 REM LARGE LAKES AT 2M/SEC 

26500 R=1.0 

26600 L=l.b 

26700 H*0.U6 

26800 GUTO 36100 

26900 REM <;,2 

27000 REM LARGE LAKES Al bM/SEC 

27100 pal. 2 

27200 L=2.25 

27300 H=0.u8 

27400 GOTO 36100 

27500 REM 2,3 

27600 REM LARGE LAKES AT lOM/StC 
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27700 P»2.0 
27P00 L=6.25 
27900 N=0.16 
2fl000 GOTO 36100 
2fil00 HEM 2t4 

28200 WEM LARGE LAKES AT 20M/SEC 
28300 Pa^.O 
28400 L»25.0 
28500 H»0.65 
28600 GOTO 36100 

28700 ON S* GOTO 28800t 29400* 30000» .10600 
28800 3«1 

28900 HEM SMALL BAYS AND COVES AT 2M/SEC 

29000 H»l.h 

29100 L»2.J 

29200 H«0,12 

29300 GOTO 36100 

29400 REM Jt2 

29500 REM SMALL BAYS AND COVES AT 5M/SEC 

29600 P«2.0 

29700 L=5.0 

29800 Ha0,2 

29900 GOTO 36100 

30000 HEM J, 3 

30100 HEM SMALL BAYS AND COVES AT lOM/SEC 

30200 Ps3.0 

30300 L=l4.0 

30400 HsO.35 

30500 GOTO 36100 

30600 REM 3t4 

30700 HEM SMALL BAYS AND COVES AT 20M/'SEC 
30800 P=6.0 
30900 L=56.0 
31000 Hal.«» 
31100 GOTO 36100 

31200 ON S4 GOTO 31300, 31900. 32500, 33100 
31300 nEm .♦,1 

31400 HEM LAHGE BAYS AT 2M/SEC 

31500 P=2.0 

31600 L=3.l 

31700 Hso.15 

31800 GOTO 36100 

31900 HEM '♦.a 

32000 HEM LARGE BAYS AT 5M/SEC 

32100 P=2.4 

32200 L=9,u 

32300 HaO,25 

32400 GOTO 36100 

32500 HEM 4,3 

32600 HEM lAhGE bays AT lOM/SFC 

32700 P=4.25 

32800 L=28.0 

32900 Hao./ 

33000 GOTO 36100 

33100 HEM 

33200 NEM LARGE BAYS AT 20M/SFC 
33300 PsS.i 
33400 L=110.0 
3350 H=2.6 
33600 GOTO 36100 

33700 ON S4 GOTO 33800, 34400, 35000, 35600 
33800 REM Sul 

33900 REM OPEN OCEAN AT 2M/SEC 

34000 P33.!s 

34100 L=20.0 

34200 HaO.S 

34300 GOTO 36100 

34400 HEM S,2 

34500 HEM OPEN OCEAN AT 5M/SEC 
34600 P»4.b 
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34700 L=30.0 
34R00 H=0./5 
34900 GOTO 36100 
35000 HEM b.l 

35100 HEM OPEN OCEAN AT lOM/SF.C 

35300 P=7.0 

35300 L=80.0 

35400 H=2,0 

35500 GOTO 36100 

35600 REM bi4 

35700 REM UPEN OCEAN AT 20M/SEC 
35800 P=14.0 
35900 L=300.0 
36000 H37.S 
36100 HETLkN 

36200 REM GHAf-HlCS NOUTINES 

36300 HEM E1H5T PLOT ANGULAR POSITION 

36400 OU=0 

36500 (31=360 

36600 Q2stJ(l) 

36700 Q3=EJ(E2) 

36800 Q4=C 

36900 PKIM 

37000 PHINl 

37100 PNIN I"ANGULAR POSITION PLOTTEO AGAINST TIME" 

37200 PNIM" " 

37300 PHiNf 
37400 GOSLd 39500 

37500 REM NO* «F PLOT VERTICAL POSITION 

37600 UU=-25 

37700 Ql=2b 

37H0O Q2=E3!1) 

37900 Q3=EJ(K2) 

38000 Q4=C 

38100 FOR j=l m E2 

38200 El (J) =£4 (J) 

38300 NEAl J 

38400 PRINI 

38500 PRIM 

38600 PRIN l"Vf-RTICAL POSITION PLOTTED AGAINST TIME" 

38700 PRIM" " 

38800 PRIN( 

38900 GOSLH 39500 

39000 STOP 

39100 REM NOLIINE FOR PLOTTING (SURPLUS THE Y VALUE 
39200 Y=E1(N) 
39300 HETLkN 

39400 HEM PLOTTING SUBROUTINE 
39500 N=0 

39600 Q5=(U1-(^0)/60 
39700 Q6«0 

39900 FOR A = U2 TO 03 STEP 04 

40000 N=N*I 

40100 GOStb 39200 

40200 IF Ob = THEN 42800 

40300 IF Ob = 20 THEN 40600 

40400 PRINT " . "» 

40500 GOTO 40800 

40600 PRIM " - "I 

40700 Q6slu 

40800 IF Y > (;i THEN 42500 
40900 IF Y < 00 THEN 42500 
41000 Q7=Gu*2«Q5 
41100 2=Q7+0.5«Q5 
41200 IF Z<Y THEN 42200 
41300 {36306*1 

41400 IF Z-Y>32»Q5 THEN 42000 
41500 IF Z-Y>sQ5 THEN 41800 
41600 PRINT " 
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41700 GOTO 43400 
41800 PHIM 
41900 GOTO 43400 
42000 PHIM 
42100 GOTO 43400 
42200 «7s(j7*3«Q5 
42300 PHIM "I 
42400 GOTO 41100 

42500 PHINr "OFF SCALE. (X,Y) = A J " , I Y 
42600 06sQb*l 
42700 GOTO 43400 

42800 PHIM , „^ 

42900 PHINI "FOR A TOP = "IG?!" BOTTOM = "103;" INCHEMENT a "JQ4 

43000 PHIM "(-OR Y LEFT = "«G0;" HiGhT = ";U15" INCREMENT » ";Q5 
43100 PHIM 
4:^200 PKIM 

I I I I I I I" 

43300 GOTO 4060n 

43400 NEXT X 

43500 HETUkN 

43600 END 
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LEAP FROG 

The game of leap frog is an amusing way to learn the "look 
ahead logic." You must carefully think of advance moves if you are 
going to win in a reasonable number of moves. 

You indicate the start and end of each leap with a number from 1 
to 11. One (1) is the position to the immediate left, while 11 is the last 
position to the right. Figure 1-6 shows some sample moves. 




SET UP FROGS AND COUNTER 



OUTPUT HEADER 



INPUT MOVE 




YES 



UPDATE DISPLAY 



Flowchart for Leap Frog 



UPDATE COUNTER 



NO / WINNING 
MOVE 



YES 
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GGGGG — BBBBB 



Fig. 1 -6 — Move 1 is allowed because the frog is landing in an empty space. Move 
2 is illegal because there is already a frog in the spot you will land in. Move 3 is 
also illegal because you may Jump only over one frog at a time. Move 4 is 
permissible. You don't always have to jump over another frog. 

Sample Run 

RUN 

THE CAME OF LEAP FROG 

OUR GAME STARTS AS: 

GGGGGSBBBBB 

UE MUST END AS 

BBBBBSGGGGG 

TO UIN. 

NOTE THE S IS THE EMPTY SPACE- 
UHAT IS YOUR HOVE -CSTART-, END} 
f a-iL 

CURRENT PATTERN OF FROGS IS 
BBBBBGGSGGG 

UHAT IS YOUR MOVE {START, END} 
? ID-ifl 

CURRENT PATTERN OF FROGS IS 
BBBBBGGGGSG 

UHAT IS YOUR HOVE -CSTART, END} 
f 

CURRENT POSITION OF FROGS IS 
BBBBBSGGGGG 

YOU HAVE DONE IT, IN ONLY X MOVES 
DO YOU UANT TO TRY AGAIN? 
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TYPE 1 TO CONTINUE-. 2 TO STOP 
? 2 

RUN COMPLETE 

NOTE THE X IN THE LINE 

YOU HAVE DONE IT IN ONLY X MOVES 

IS THE AMOUNT OF MOVES YOU TOOK TO UIN. 

Program Listing 

ID REM THIS IS THE GAME OF LEAP FROG 
BD REM THERE ARE S GREEN FROGS LA- 
BELLED 

30 REM UITH G'S AND S BROyN FROGS 
MO REM LABELLED UITH B'S 
SO REM THERE IS A SINGLE SPACE LEFT 
OVER 

bO REM AND IT IS IN THE MIDDLE BE- 
TWEEN 

70 REM THE GREEN AND BROUN FROGS. 
flO REM TO UIN UE MUST MOVE ALL THE 
TO REM GREEN FROGS TO THE RIGHT AND 
ALL 



100 


REM THE 


BROUN FROGS TO THE 


120 


REM SET 


UP DIM FOR FROGS. 
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DIM A${12} 


mo 


REM SET 


UP COUNTER 


ISO 


C = 




IbO 


A*C1} = 


t igi 1 


170 


A$-C2} = 


1 tgi f 


lao 


A#{3} = 


1 igi I 


no 


k$my = 


1 igi I 



euu A¥^3 J- = ■ u ■ • 

210 A^Cfe.} = "S" 

230 A$C7> = "B" 

230 k^l&y = "B" 

2U0 k^i'^y = "B" 

2SD A$-C103- = "B" 

2b0 A^Cll} = "B" 

270 PRINT 

2flD PRINT "THE GAtlE OF LEAP FROG" 

a'lD PRINT " " 

300 PRINT 

310 PRINT 

320 PRINT "OUR GAME STARTS OFF AS:" 

330 PRINT 

3M0 PRINT "GG6GGSBBBBB" 

3S0 PRINT 

3bO PRINT "UE E1UST END AS" 

370 PRINT "BBBBBSGGG6G" 

3SD PRINT ' 'TO UIN- ' ' 
3flS PRINT "NOTE THAT S IS THE 
EMPTY SPACE. ' ' 

310 PRINT 

MOO PRINT "UHAT IS YOUR HOVE {START-, 
END}' • 

mO INPUT S, E 

M20 IF ABSCS - E}>2 THEN 4SD 
HMD GOTO MfiO 

MSO PRINT "SORRY-, YOUR LEAP IS TOO 
LARGE" 

ubO GOTO 3T0 

MflO IF A^{S} = "S" THEN SIO 

MID IF A*{E} = "G" OR A$-CE} = "B" 
THEN SSO 



SOO GOTO STO 

510 PRINT "HEVi YOU A CANNOT START 

YOUR LEAP' ' 
SSD PRINT "WITHOUT A FROG-, YOU HAVE 

GIVEN THE" 
S3D PRINT "LOCATION OF THE SPACE-" 
SMD GOTO 310 

SSD PRINT "HEYi YOU CANNOT END YOUR 
LEAP" 

SbO PRINT "WITHOUT A SPACE-, YOU HAVE 

GIVEN THE" 
S70 PRINT "LOCATION OF A FROG" 
SflO GOTO 
STD = A^-CS> 

LDD A^-CS} = "S" 
blO A^-CE} = 
L2D = A$-C1> 

b30 FOR I = E TO 11 
bMD = + A${I} 

bSD NEXT I 
bbO PRINT 

b7D PRINT "CURRENT PATTERN OF FROGS 

IS: ' ' 
t>aO PRINT D$ 
LID C = C 1 

7DD IF D$ = "BBBBBSGGGGG" THEN 75D 
710 GOTO 3T0 
720 PRINT 

73D PRINT "YOU HAVE DONE IT-, IN ONLY 
"•n Ci "MOVES" 
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?MD PRINT 

?S0 PRINT "CO YOU WANT TO TRY 
AGAINf • 

7bD PRINT "TYPE 1 TO CONTINUE-, 2 TO 

STOP' • 
770 INPUT C 
760 IF C = 1 THEN fiDO 
710 STOP 
flOO PRINT 
fllO GOTO ISO 
flED END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 209 in Section II. 
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COMPUTERIZED HANGMAN 

This amusing algorithm is designed to test your ability to guess 
words. The computer wiM choose at random from a list of words. In 
this program, the DATA statements have been written with one 
word per line, so that the game player may easily change the words. 

You guess at a letter in the word. The computer then responds 
with the number of times that letter appears in the word, if at all. 

After a number of unsuccessful tries, you may be hanged by the 
computer. Good luck. 



Flowchart for Computerized Hangman 




HEADER 



CHOOSE WORD 



ASK FOR LETTER 




YES 



DISPLAY NUMBER 
OF OCCURRENCES 



INPUT GUESS 



YES 




WIN 
MESSAGE 



HANGMAN 
MESSAGE 



FLAG = FLAG + 1 




HUNG 

[yes 



NO 



YES 




Sample Run 

RUN 

THE COMPUTER HAS PICKED AT 
RANDOM A UORD 
CONTAINING 11 CHARACTERS 
TIME TO START-, BE CAREFUL-, YOU 
DON'T WANT TO BE HUNG FROM 
THE GALLOyS 
WHAT LETTER 
f S 

THE LETTER S OCCURS M TIMES 

WHAT DO YOU THINK THE UORD IS 

f MISSISSIPPI 

yoy-, YOU GUESSED IT 

YOU MUST KNOU THE LEXICON FRONT 

TO BACK 

yANT TO TRY AGAIN 

TYPE 1 TO GO AGAIN-, 5 TO STOP 

f S 

CHICKEN 

RUN COMPLETE 

RUN 

THE COMPUTER HAS PICKED AT 

RANDOM A yORD 

CONTAINING S CHARACTERS 

TIME TO STARTi BE CAREFUL-, YOU 

DON'T UANT TO BE HUNG FROM 

THE GALLOyS. . . 

yHAT LETTER 

f X 
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THE LETTER X OCCURS S TIMES 
li'HAT DO YOU THINK THE WORD IS 
f XEROX 

UOy, YOU GUESSED IT 

YOU MUST KNOW THE LEXICON FRONT 

TO BACK 

UANT TO TRY AGAIN 

TYPE 1 TO GO AGAIN-, 5 TO STOP 

f .5 

CHICKEN 

RUN COMPLETE 

Program Listing 

10 REM THIS IS THE GAME 
50 REM OF HANGMAN 

3D REM THE COMPUTER WILL CHOOSE A WORD 
UQ REM IN ENGLISH AT RANDOM 
SO REM EACH TIME IT IS YOUR TURNi 
bO REM YOU PICK A LETTER-, THE COMPUTER 
WILL 

70 REM TELL YOU HOU MANY TIMES IT 

OCCURS IN THE WORD 
aO REM YOU THEN TRY TO GUESS THE WORD 
TO REM AFTER A CERTAIN NUMBER OF 

GUESSES-, IF 
100 REM YOU HAVE NOT GUESSED THE 
yORD THE 

110 REM COMPUTER UILL HANG YOU- 
lEO M = 

130 R = INT€2S * RNDCO}} -i- 1 



IMD FOR I = 1 TO R 

ISO READ IJ$ 

IbO NEXT I 

170 L = LEN{y$> 

IfiO PRINT 

no PRINT "THE COMPUTER HAS PICKED 

OUT AT" 
200 PRINT "RANDOn A UORD" 
ElO PRINT "CONTAINING "^ Ln " 

CHARACTERS" 
250 PRINT 

230 PRINT "TiriE TO START-, BE CAREFUL, 
YOU' ' 

2M0 PRINT "DON'T UANT TO BE HUNG 
FROM" 

2SD PRINT ' 'THE GALLOUS. - . " 
2t0 PRINT 

270 PRINT "UHAT LETTER" 
2fl0 INPUT L* 

2T0 IF LENCL^} >1 THEN 310 
300 GOTO 325 

310 PRINT "DON'T CHEAT-, ONLY 1 

LETTER AT A TIME. ' ' 
320 GOTO 2bD 
325 J = 
330 FOR I = 1 TO L 

3M0 IF SUBSTR-CU^iI-,1} = L$ THEN 3b0 
350 GOTO 370 
3b0 J = J + 1 
370 NEXT I 
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3fi0 PRINT 

3^0 PRINT "THE LETTER" i L^i " 

OCCURS "^ " TIflES" 

MOO PRINT 
MIO PRINT "yHAT DO YOU THINK THE 
UORD IS" 
M20 INPUT 

MES IF LEN{B$)-<>U$ THEN SbD 
430 IF <>U$ THEN bOD 
HMO PRINT 

450 PRINT "UOy-, YOU CUESSED IT" 
HkU PRINT "YOU nUST KNOU THE LEXICON 
FRONT 

470 PRINT "TO BACK" 
'4aO PRINT 

4^0 PRINT "WANT TO TRY AGAIN" 

SOO PRINT "TYPE 1 TO GO AGAIN-. E TO 

STOP' ' 
510 INPUT C 
SSO IF C = 1 THEN 550 
530 PRINT "CHICKEN" 
540 STOP 
550 GOTO 130 
SLO PRINT 

570 PRINT "REIIEflBER-, THERE ARE"^ 

L-. "CHARACTERS" 
5fl0 PRINT "IN THE RANDOM UORD" 
5T0 GOTO MOO 
LDO PRINT 

LID PRINT "SORRY-, QIRONG UORD" 



bEo n = n + 1 

b3D ON n GOTO bMO-, bbO-, bflO-, 710-, 

73D-, 7S0-, 77D-, aOD 
hHU PRINT "YOU ARE SENTENCED TO 

HANG" 
LSD GOTO 5bD 

tbO PRINT "THE GALLOUS ARE NOW 

ERECTED" 
b?0 GOTO BbO 

taO PRINT "THE COMPUTER THINKS THIS 

ROPE UILL BE LONG" 
b^O PRINT "ENOUGH FOR YOUR HANGING' 
700 GOTO EbO 

710 PRINT "HOPE THE ROPE IS NOT TOO 

TIGHT AROUND YOUR NECK" 
720 GOTO 5b0 

730 PRINT "THE HANGflAN IS PREPARING 

THE TRAP DOOR" 
7MD GOTO SbO 

7S0 PRINT "THE SPRING IS SET ON THE 

TRAP DOOR" 
7b0 GOTO EbO 

770 PRINT "THIS IS YOUR LAST CHANCE 

YOU STILL HAY" 
7fi0 PRINT "BE SAVED FROM HANGING" 
710 GOTO EbO 

flOO PRINT "THE TRAP DOOR IS OPEN-, 

YOU ARE HUNG" 
fllO PRINT "GOOD-BYE-, CRUEL WORLD" 
SED GOTO MflO 
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630 


DATA 


XEROX 




DATA 


nusHROon 


asD 


DATA 


AflERICA 


fiLO 


DATA 


COMPUTER 


fl70 


DATA 


TELEVISION 


&&Q 


DATA 


ATLANTIC 


fl^O 


DATA 


tllSSISSIPPI 


TOD 


DATA 


GAMES 


110 


DATA 


HOUSE 


TED 


DATA 


PACIFIC 


T3D 


DATA 


BEAR 


TMD 


DATA 


BLANKET 


TSO 


DATA 


CORVETTE 


TbO 


DATA 


tIARBLE 


T70 


DATA 


ELECTRONICS 


Tao 


DATA 


INTEGRATED 


TTD 


DATA 


CIRCUITS 


1000 


DATA PRETZEL 


1010 


DATA VITAPIIN 


lOSO 


DATA CONTAINER 


1030 


DATA WHEAT 


lOMO 


DATA DEXTROSE 


IDSD 


DATA PEOPLE 


IDbO 


DATA FAniLY 


1D70 


DATA PROGRAn 


loao 


END 





An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 211 in Section II. 



H /! -I 



YOUR CHEATING COMPUTER 

This game lets you be a private eye. You must find a complete 
sequence of letters picked at random by the computer. A is lowest 
and Z is highest; therefore, if you input H and the computer responds 
too low, the letter must be between I and Z inclusively. 

But there is a catch. As you get better, the computer starts 
cheating. It lies to you about whether the letter is high or low. Of 
course, if the guess is correct, it will not lie. 

(START) 





HEADER 












READ DATA 



BUILD RANDOM 
SEQUENCE 



Flowchart for Your Cheating Computer 



SET UP COUNTERS 




^ 




INPUT GUESS 






USE CHEAT 






OUTPUT MESSAGE 






Y 


MESSAGE 
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Sample Run 



THIS PROGF^AM LETS YOU BE A DETECT I ME 
IT PICKS A LETTER SEQUENCE 

WHICH YOU MUST GUESS 
ONE LETTER AT A TIME 
TO MAKE THIS GAME VERY DIFEICULT 

THE PROGRAM CHEATS 

ON EACH LETTER 

WITH THE CHEATING A 

FUNCTION OF HOW WELL YOU DID ON THE PREVIOUS 
OBVIOUSLY THE FIRST TRY WILL BE 'HONEST^ 
THF SEQUENCE IS SET UP FOR YOUR TRIAL 
THE CHANCES THAT I WON^T CHEAT ARE 100 % 
WHAT IS YOUR GUESS? Q 
NOPE YOU ARE TOO LOW 
WHAT IS YOUR GUESS? W 
NOPE YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? S 
NOPE ■■■■ YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? R 
OK ■-■ YOU GOT TITES LETTER 
THE SEQUENCE 30 FAR IS R 

THE CHANCES THAT I WON'T CHEAT ARE 98.3333 

WHAT IS YOUR GUESS? M 

NOPE YOU ARE TOO LOU 

WHAT IS YOUR GUESS^i' T 

NOPE ■• YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? P 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? R 

OK ■■■■ YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS RR 

THE CHANCES THAT I WON'T CHEAT ARE 96.6944 
WHAT IS YOUR GUESS? Q 
OK ■•• YOU GOr THIS LETTER 
THE SEQUENCE SO F-'AR IS F;:RQ 

THE CHANCES THAT I WON'T CHEAT ARE 90.2481 
WHAT IS YOUR GUESS? A 
OK - YOU GOT THIS LETTER 
THE SEQUENCE SO FAR IS RRQA 

T H E. C H A N C; E. S T H A T I W i J N T C H E. A T A F< F- 84.23 1 6 
WHAT IS YOUR GUESS? A 
NOPE YOU ARE TOO LOW 



TRII: 



WHh I 
NO Ft; 
UHh'1 



UR b 



WHAl I 



WHAT IS YOUR GtJE 
NOPF- YOU ARE TOO 



[3 YO 



MiJESi 



IE TOO HIGH 



OK 



YOU GOT THIS LETTEI 



THE SE 
THE CH 

WHAT I 

NOPE Y 

WHAT I 

NOPE ■- 

WHAT I 

NOPE ■- 

WHAT I 

NOPE Y 

WHAT I 
NOPE 

WHAT I 
NOPE 

WHAT I 

NOI~'E -■ 

WHAT I 

NOPE Y 

WHAT T 

NOPE ■■■■ 



:jUENCE SO FAR IS F;;RQAX 
=tNCES THAT I WON'T CHEAT 
3 YOUR GUESS? A 
:)U ARE TOO LOW 
B YOUR GUESS? B 
YOU ARE TOO HIGH 

YOUR GUESS? C 
YOU ARE TOO HIGH 
) YOUR GUESS? L 
)U ARE TOO LOW 
I YOUR GUESS? Z 
YOU ARE TOO HIGH 
; YOUR GUESS? T 
YOU ARE TOO HIGH 
5 YOUR GUESS? R 
YOU ARE TOO HIGH 
; YOUR GUESS? Q 
KJ ARE TOO LOW 
} YOUR GUESS? Q 
YOU ARE TOO HIGH 
5 YOUR GUESS? N 
OU ARE TOO LOW 
S YOUR GUESS? 
YOU ARE TOO HIGH 
5 YOUR GUESS? M 
jU GOT ri-lIS LETTER 
JUENCE SO FAR IS RRQAXM 
iNCES THAT I WON'T CHEAT 
5 YOUR GUESS" M 
YOU ARE TOO HIGH 
i YOUR GUESS'P H 

ju are too low 
your guess? j 
:)u ARE too low 

5 YOUR guess? M 
]U ARE TOO LOW 
i; YOUR GUESS? U 
YOU ARE TOO HIGH 
WHAT IS YOUR GUESS Q 
NOPE YOU AF<E TOO L..OW 
WHAT IS YOUR GUESS? T 
OK - YOU GOT THIS I.JiLTTER 
THE SEQUENCE SO FAFi; IS R 
THE CHANCES THAT I WON'T 
WHAf IS YOUR GUESS? G 
OK YOU GOT THIS LETTER 
THE SEQUENCE SO FAR IS RROAXf 
TT-iE CHANCES THAT I WON'T CHEf 
WHhT IS YOUR GUE 



NOPE Y 
WHAT I 
NOPE ••■ 
WHAT I 
OK Y 

THE si;; 

THE Ch 
WHAT- I 
NOPE - 
WHAT I 
NOPE T 
WHAT I 
NOPE Y 
WH 

NOPi;; 
WHAT 
NOPE 



T I 



ARE 



WHAT 



JUENCE SO 
iNCES THA': 
:j YOUR GUi; 
row ARE 



r< .1. ;:i 1^ 

WON-'T 



ARE 



83,6077 



ARE 83,1432 



8613 
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NOPE - YOU ARE TOO HIBH 

WHAT IS YOUR GUESS? I 

OK - YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS RRQAXMTGUI 

DA CHAHPION HAS STRUK AGIil 



NUMBER OF TRIES 45 
PROBABILITY OF CHEATING 

ON ALL TRIES 70,7807 % 
THE TOTAL SEQUENCE IS RRQAXMTGUI 



TRY AGAIN < YES/NO) ? YES 

THE SEQUENCE IS SET UP FOR YOUR TRIAL 

THE CHANCES THAT I WON'T CHEAT ARE 100 % 

WHAT IS YOUR GUESS? M 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? A 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? M 

OK •• YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS M 

THE CHANCES THAT I WON'T CHEAT ARE 97,7778 % 

WHAT IS YOUR GUESS? A 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? C 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? E 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? H 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? K 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? L 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? P 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? S 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? U 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? W 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? X 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? Y 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? Z 

OK YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS MZ 

THE CHANCES THAT I WON'T CHEAT ARE 97,2764 Z 
WHAT IS YOUR GUESS? H 
OK - YOU GOT THIS LETTER 
THE SEQUENCE 30 FAR IS MZM 

THE CHANCES THAT I WON'T CHEAT ARE 90,7913 % 
WHAr IS YOUR GUESS? H 
NOPE 'you ARE TOO LOW 
WHAT IS YOUR GUESS'i^ V 
NOI~'E YOU ARE TOO HIGI-i 
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WHAT IS YOUR GUEISS? T 
NOPE YOU AF<E TOO HIGH 
WHAT' IS YOUF? GUESS? R 
NOPE YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? P 
NOPE YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? 
NOPE YOU ARE TOO LOU 
WHAT IS YOUR GUESS? N 
NOPE - YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? Q 
NOPE YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? P 
NOPE - YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? N 
NOPE - YOU ARE TOO HIGH 
WHAT IS YOUR GUESS'!' H 
NOPE YOU ARE TOO LOW 
WHAT IS YOUR GUESS? K 
NOPE ■■■■ YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? J 
NOPE - YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? I 
NOPE - YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? F 
NOPE ■■■■ YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? G 
NOPE - YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? A 
NOPE YOU ARE TOO LOW 
WHAT IS YOUR GUESS? D 
NOPE ■- YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? B 
NOPE YOU ARE TOO LOW 
WHAT IS YOUR GUESS? C 
OK - YOU GOT THIS LETTER 
THE SEQUENCE SO FAR IS MZMC 

THE CHANCES THAT I WON'T CHEAT ARE 90.4886 % 

WHAT IS YOUR GUESS? H 

NOPE - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? K 

NOPE - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? H 

NOPE YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? F 

NOPE YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? C 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? E 

OK YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS UZMCE 

THE CHANCES THAT I WON^T CHEAT ARE 09,4832 X 

WHAT IS YOUR GUESS? M 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? H 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? R 

NOPE YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? 
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NOF'E: YOU fiiRE TOO HIGH 
WHAT IS YOUR GUESS? N 
OK ■■■■ YOU OOT THIS LETTEF^ 
THE SEQUENCE SO FAF< IS MZHCEN 

THE CHANCES THAT I WON^T CHEAT AF<E 88.2901 % 

WHAT IS YOUR GUESS'!^ M 

NOPE YOU ARE TOO l-IIGH 

WHAT IS YOUR GUESS'i' F 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? J 

NOPE •■ YOU ARE TOO HIGI-I 



WHAT IS YOUR GUESS? 6 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? I 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? L 

NOPE - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? K 

NOPE - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? H 

OK •■ YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS VZMCENH 

THE CHANCES THAT I WON'T CHEAT ARE 87,5543 % 

WHAT IS YOUR GUESS? T 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? X 

NOPE ■• YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? U 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? W 

OK - YOU GOT THIS LETTER 

THE SEQUENCE 30 FAR IS MZMCENHW 

THE CHANCES THAT I WON'T CHEAT ARE 86,0951 % 

WHAT IS YOUR GUESS? H 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? H 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? R 

NOPE ■■■■ YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? P 

NOPE YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? 

NOPE - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? N 

riK - YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS MZMCENHWN 

THE CHANCES THAT I WON'T CHEAT ARE 85,1385 % 

WHAT IS YOUR GUESS? H 

NOPE YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? B 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? K 

NOPE •• YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? F 

OK ■• YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS UZHCENHWNF 

HEY BOSS ■■ THIS GUY IS CHAMPIONSHIP MATERIAL 
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Program Listing 



100 REM THIS PROGRAM "LEARNS" HOW TO CHEAT 
200 REM TO USE IT JUST TYPE kUN. 

300 PRINT "THIS PROGRAM LETS VOU BE A DETECTIVE" 
400 PRINT "IT PICKS A LETTER SEQUENCE" 
500 PRINT " WHICH YOU MUST GUESS" 
600 PRiNf "ONF LETTER AT A TIME" 
700 PRINT "TO MAKE THIS GAME VERY DIFFICULT" 
800 PRINT " The PROGRAM CHEAIS" 
900 PRINT " ON EACH LETTER" 
1000 PRINl " VdiTH THE CHEATING A" 

1100 PRINT"FUNCT10N OF HOW wELLYOUOIO ON ThE PREV lOUS TR lES 
1200 PRINT "OBVIOUSLY THE FIRST TRY WILL HE 'HONESTi" 
1300 READ A$ 

1400 DATA ARCOFFGHIJKLMNOPQRSTUVWXYZ 
1500 DIM GSdO) 

1600 REM GET A SEQUENCE OF TEN RANDOM LETTERS 

1700 FOR I«l To 10 

1800 NaRNU(0)»l023 

1900 KsN/ifc 

2000 KaK-lNT{K) 

2100 KsINI (K«26*l) 

2200 IK K>26 OR K<1 THEN ISOU 

2300 G$(I)=SU8STR(AS,Ktl) 

2400 NEXT I 

2500 REM bET UP COUNTER FOR LETTER IN PRQGnESS 
2600 CUO 

2700 REM SET UP COUNTER FOR ALL LETTERS 
2800 C2=0 

2900 REM SET UP POINTER TO LETTER IN QUESTION 
3000 L=l 

3100 REM SET UP PROBABILITY 
3200 P=l 

3300 PRINT "THE SEQUENCE IS SET UP FOR YOUR TRIAL" 

3400 PHINl "THF CHANCES THAT I i«ON i I CHEAT ARE "}P«100I" 

3500 PHIM '"WHAT IS YOUR GUESb"! 

3600 Cl*Cl*l 

3700 C2«C^*1 

3800 INPUr TS 

3900 IF LEN{T$)>1 THEN 6000 

4000 IF T4<>G$(L) THEN 5200 

4100 PRINT "OK - YUU GOT THIS LETTEh" 

4200 PRINl "THE SEQUENCE SO FAR IS "; 

4300 FOR 1*1 To L 

4400 PRINT GS (I ) I 
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<»500 
4600 
4700 
4600 
4900 
5000 
5100 
5200 
5300 
5400 
5500 
5600 
5700 
5800 
5900 
6000 
6100 
6200 
b300 
S400 
6500 
6600 
6700 
6800 
6900 
7000 
7100 
7200 
7300 
7400 
7500 
7600 
7700 



NEXT I 
PHINT 

p=p-p«(l/Cl)/i5 
CUO 

IF L>10 THEN 6700 
GOTO 3400 
P1«RnO (0> 

IF P>P1 THEN 5500 
GOTO 06500 

IF T» > GS(L) THEN 5800 
PHINT "NOPE YOU AWE TOO LOW" 
GOTO 3500 

PHIM '"NOPE - YOU AHE TOO HIGH" 
GOTO 3500 

PHINT "ONE LETTER Al A TIME - TURKEY" 

pKiM " This try makes fuhtheh effort worse" 

IF Cl<2 THEN 3500 
CUCl-2 



GOTO 3500 
IF T*>GS(L) Then 
GOTO 05800 
IF C2 > 150 THEN 
IF C2> 100 THEN 
IF Cd > 80 THEN 
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7900 
7700 
7500 

IF C^>60 THEN 07300 

PRINT "DA CHAMPION HAS 51RUK 4GIN" 

GOTO 8100 ^ , , ., 

PHINI "HEY BObS - THIS GUY IS CHAMPIONSHIH MATERIAL" 

GOTO 8100 

PRINT "PRACTICE makES PERFECT - KEEP GOING " 

GOTO 8100 

PKIM "NOT HAD FOK A RFGtNNER - ^^UT LOUSY IF YOU 



PLAYED BEFORE" 
7800 GOTO BlOO 

7900 PRIM "HAVE YUU THOUGHT OF PLAYlfiG A SIMPLER GAME 
- I IKE"I 

eOOO PRINT " FIND YOUR FiNGERV" 
8100 PHINI 

8200 PHINI "NUMBER OF TRIES", C2 
8300 PRIM "PROBABILITY OF CHtATING" 
B400 PRINT " ON ALL TRIES" ,P*» 1 00 ; " *" 
8500 PRINT "THE TOTAL SEQUENCE IS "» 
8600 FOR 1 a I TO 10 
8700 PRINT GSU) » 
8800 NEXT I 
8900 PRIM 
9000 PRINT 
9100 PRIM 

9200 PRINT "TRY AGAIN ( YES/NO )" I 
9300 INPUT T$ 

9400 IF TS.<>"YES" AND TS<>"NO" THEN 9200 
9500 IF T*»"YES" THEN 1700 
9600 STOP 
9700 END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 215 in Section II. 
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COMP-U-STORY 

This program demonstrates the use of strings in games. By 
setting up a possible scenario and then filling in the blanks, we can 
create a setting as desired. 

This type of activity is quite important in interactive games of 
which Star Warp is an example. 



INPUT STRING 

1 

MANIPULATE STRING 

1 

REPLACE VARIABLE 
WITH THE 
VALUE OF THE 
STRING. 



Flowchart for Comp-U-Story 

Sample Run 

RUN 

PLEASE ENTER THE FOLLOWING INFORHATION 
YOUR NAME 
f KEN 

NAIIE A COLOUR 
f GREEN 

NAME A PIECE OF CLOTHING 
f HAT 

A PART OF THE BODY 
f TOE 

ANOTHER PART OF THE BODY 
f HAND 

ANOTHER COLOUR 

150 



f ORANGE 

WHAT ARE YOU SCARED OF {BEAST} 

f nousE 

A ROOn IN A HOUSE 
f BEDROOn 
UHO IS YOUR HERO 
f HULK 

OUR COnPUTER STORY 

THIS IS THE STORY OF KEN UHO 

ONCE UENT FOR A UALK IN THE WOODS. 

UHILE WALKING KEN HET UP WITH A GREEN 

HOUSE UHO CHASED THE SCARED KEN. 

UNFORTUNATELY KEN FELL ON HIS TOE 

AND RIPPED HIS HAT UITH HIS HAND. 

KNOWING THAT THE HOUSE WILL EAT Hid-. 

KEN CALLS ON HIS HERO HULK. 

OUR HERO WHICH IS ORANGE DRAGS THE 

HOUSE OFF TO THE BEDROOM AND FREES POOR 

KEN. 

THE COMPUTER SAYS GOOD-BYE 
RUN COMPLETE. 



Program Listing 

ID reh this program allows you to con- 
struct A 
2D reh story using your naue 

3D REM AND ITEHS ASKED FOR 
50 PRINT 
LO PRINT 
70 PRINT 

ao print "please enter the following 
inforhation' ' 

TO PRINT 
IDD PRINT • 'YOUR NAI1E" 
110 INPUT A^ 

lED PRINT "NAHE OF A COLOUR" 
130 INPUT 

mo PRINT "NADE A PIECE OF CLOTHING" 
ISO INPUT C$ 

ItO PRINT "A PART OF THE BODY" 
170 INPUT D$ 

IflO PRINT "ANOTHER PART OF THE BODY" 
no INPUT E^ 

200 PRINT "ANOTHER COLOUR" 
210 INPUT F$ 

220 PRINT "UHAT ARE YOU SCARED OF 

{BEAST}' • 
E.'30 INPUT F$ 

2M0 PRINT "A ROOM IN A HOUSE" 
2SD INPUT H^ 

2b0 PRINT "WHO IS YOUR HERO" 
27D INPUT I* 
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EfiO PRINT 

STO PRINT "OUR COMPUTER STORY" 
3DD PRINT 
31D PRINT 

320 PRINT "THIS IS THE STORY OF " n 
"UHO" 

33D PRINT "ONCE WENT FOR A WALK IN 

THE WOODS- ' ' 
3M0 PRINT "WHILE WALKING-." "^ A$=i 

• 'HET up WITH A" 
350 PRINT " "=. G^n " WHO CHASED 

THE SCARED "^ A$ ^ "." 
3b0 PRINT "UNFORTUNATELY "i A^i 

' 'FELL ON HIS ' 'nD$ 
370 PRINT "AND RIPPED HIS "^ C^h " 

WITH HIS " n E*n " ■ " 
3flD PRINT "KNOWING THAT THE "n G*i 

' • WILL EAT Hin-," 
3TD PRINT A$n " CALLS ON HIS HERO "i 

I^n "■" 

MOD PRINT " OUR HERO-, WHICH IS " n 

F$--. " DRAGS THE " 6$ 
mo PRINT "OFF TO THE "iH^i " AND 

FREES POOR " n A$i " ■ " 
MED PRINT 
M30 PRINT 

MMO PRINT "THE COMPUTER SAYS GOOD- 
BYE" 
MSO END 

This program also will run on the Radio Shack TRS-80 compu- 
ter with no modifications needed. 
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AUTO RALLYE 

In this auto rallye you can choose both your car and the route. 
But the better the car, the more gas it eats; and the good routes are 
more dangerous. It's all lots of fun; but be careful. Don't blow your 
engine! 




OUTPUT HEADER 



INPUT CAR AND 
ROUTE 



MORE MESSAGES 



1 

OUTPUT, VELOCITY, 
GALLONS, MILES, 
TIME 



INPUT GAS RATE 



I 

UP DATE 
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Sample Run 



PROGRAM 

THE CAR RALLY 



THIS IS THE SUPER CAR RALLY f THAT ALL 
DRIVERS IN THE WORLD WAIT FOR ! ! ! M ! ! ! 
THE DRIVING IS TOUGH THIS YEARj AND 
WE ALL WISH YOU GOOD-LUCK! !!!!!!!!!!! 



CHOICE OF CARS 
MINI <1) 
LOTUS <2) 
TRANS-AM <3) 
FERRARI <4) 

CHOOSE THE CAR BY THE NUMBER AFTER IT 

REMEMBER THE BETTER THE CAR THE MORE GAS IT USES. 

WHICH CAR 

? 4 

YOU NOW CHOOSE WHICH COURSE YOU WANT TO RACE ON. 

THE EASIEST COURSE IS NUMBER 1. AND IS THE STRAIBHTEST 

ROUTE. NUMBER 5 CONSISTS MOSTLY OF TURNS AND TWISTS 

WHICH COURSE DO YOU WANT <1 TO 5) ? 

? 1 

YOU Will NEED TO TRAVEL 5 MILES WITH .5 GALLONS OF GAS 
YOUR STATUS WILL BE SHOWN EACH 10 SECOND. AFTER EACH STATUS 
CHECK YOU WILL BE ASKED FOR A NEW RATE OF GAS. A RATE OF 
+10 IS HARD ACCELERATION. AND -10 IS HARD BRAKING. ANY NUMBER 
IN BETWEEN IS ALLOWABLE. 

PRESENT VELOCITY =^ NO. OF GALLONS = .5 
NO. OF Mil FS = TIME PASSED == SECONDS 
WHAT IS YOUR NEW RATE OF GAS ? 10 
ROAD CONDITIONS VEHICLE AHEAD 1000 FEET 

PRESENT VELOCITY = 80 NO. OF GALLONS = .464 

NO. OF MILES = .173913 TIME PASSED = 10 SECONDS 

WHAT IS YOUR NEW RATE OF GAS ? 10 

ROAD CONDITIONS VEHICLE PASSED BY 72 MPH 

PRESENT VELOCITY = 128 NO. OF GALLONS =^^'^28 

NO, OF MILES = .452174 TIME PASSED = 20 SECONDS 

WHAT IS YOUR NEW RATE OF GAS ? 10 

ROAD CONDITIONS VEHICLE AHEAD 1000 FEET 

PRESENT VELOCITY - 158 NO. OF GALLONS = .392 

NO OF MILES == .795652 TIME PASSED = 30 SECONDS 

WHAT IS YOUR NEW RATE OF GAS ? 10 

ROAD CONDITIONS VEHICLE PASSED BY 121 MPH 

PRESENT VELOCITY = 176 NO. OF GALLONS = .356 
NO. OF MILES - 1.17826 TIME PASSED = 40 SECONDS 
WHAT IS YOUR NEW RATE OF GAS ? 10 
DUMMY I I YOU BLEW YOUR ENGINE!! 

WHAT TYPF OF FLOWERS DO YOU WISHf AT YOUR FUNERAL?? 
YOU WANT TO TRY AGAIN » RIGHT ! ! ! ! 
l-YES. 2-NO ? 2 
CHICKEN 



RUN COMPLETE. 
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Program Listing 



1 U HEM I HF CflH NaLI Y 
30 HKJM 
4 PNIM 

50 ^JNINfM THE CAR RALLY" 

60 PHIM 
70 PHIM 

80 PNIMiiTHlS IS THF SUPEN CAW HALLY, THAT ALL" 
90 PNIM"OhlVEHS IN THE V«OHLD WAIT FQH! !!!!!!!" 

100 PHlNflHE OKIVING IS TOUGH THIS YEAR. AND" 

no PhINT"wE ALL WISH YOU GOOC-LUCK 1 !!!!!! M !!! " 

120 PKINT 

130 PHIM 

1^.0 PHIM" CHOICE or CARS" 



ISO PHIM"H1NI <1)" 

160 PHIM"LOTuS (2)" 

170 PHINT"TNAnS-AM (3)" 

leO PHlNfMFf-RRAMI (4)" 

190 PHIM 



200 PHIM"CH00SF THE CAN BY IHE NUMBER AFTER IT" 
210 PHIM "ftEMEMtiER THE BETTER THE CAR THE f'ORE GAS IT USES." 
220 PHIM "WHICH CAR" 
230 INPUl CI 
240 LET tl=INT (CI) 
250 IF Cl>4 THEN 2P0 
260 IF CKl THEN 2P0 
270 GOTO 300 

200 PHINi "INVALID CAR NUMBER. NE\« CAR 7" 
290 GO Tu 230 
300 PHIM 

310 IF hdsi Then 350 

320 PkIM "YOU NO* CHOOSE »«HICH COUkSE YOU WANT TO RACE ON." 

330 PHIM "THE EASIEST COURSE IS NUMBER 1. AND IS ThE STRaIGHTEST" 

340 PRIM "ROUTE. NUMBER 5 CONSISTS MOSTLY OF TURNS AND TWISTS" 

350 PHIM "WHICH COURSE 00 YOU WAN? (I TO 5) ?" 

360 INPUI C2 

370 LET C2=1NT (C2) 

380 IF Ct'<l Then 410 

3<3 IE Cf.>b IhEn 410 

400 GOTO 430 

410 PHINI "INVALID COUhSE NU.^HER. NEW ChCICE ?" 

420 GOTO 360 

430 IF Ntlsl IhEN 4Q0 

440 PRINT "YOU WILL NEED TO TRAVEL S MILES wITH .5 GALLONS UF GAS" 

450 PRIM "YOUR STATUS wILL HE SHOwN EACH 10 SECOND. AFTER EACH STATUS" 
■460 PRIM "CHFCK YOU WILL BE ASKEO FOR A NEW RATE OF GAS. A RATE OF" 
1470 PRIM "♦in IS HAPU ACCELERATION. AND -10 IS HARD HRAKTnG. ANY NUMBER' 

4H0 PHIM "IN BETWEEN IS ALLOwAHLE." 

490 FOR 1=1 Tn CI 

500 READ ri.M.S 

510 LET H=R/10 

520 NEXT I 

530 LET Als.5 

540 LET MlaO 

550 LET Cl=Cl/2 

i=,f.() I F T v = () 

570 PRINT 

580 LET HlaO 

590 LET T=0 

600 LET uao 

610 LET Ul=0 

620 PRINT "PRESENT VELOCITY = "JV;" NO. OF GALLONS = "lAl 

630 PRINT "NO. OF MILES = "IMi;" TIME PASSED = "ITl" SECONDS" 

640 IF Mi >=5 THEN 1460 

650 PRINT "WHAT IS YOUR NEW RATE OF GAS "J 

660 INPUT G 

670 IF G <-10 THEN 700 
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6flo IF G>io Then 700 

(S90 GOTO 720 

700 PKINV "NOT VALID. NEW RalE'M 

710 GOTO 660 

720 IF G<9 THFN 780 

730 LET Z»2*l 

740 IF ^>^^ IHFN 760 

750 GOIO 790 

760 PHIM "DUMMY 1 I YOU BLEw YOLR EMGiNEIl" 
770 GOTO 1270 
7t>0 LET IsO 

790 LET valNl {R»G-M«V + V) 
800 LET (=1*10 
P10 PKIM 

820 PHiNt "^<OAD CONDITIONS "; 

830 IF V>0 THFN 00850 

840 LET vaO 

850 LET Ml=M+V/460 

860 IF G<0 THEN 890 

870 LET Al=Al- (G«S) /5000 

a7S IF n I > = S THEN IMbB 

880 IF AKO IhEN 1380 

890 IF Ki=i Then io?o 
900 IF Gi=i Then 0980 

910 LET g=lM ( <C2*1 j «HNU (X) ) 

920 LET KsINT ( (3.75-C2) ««Nn (A) ) 

930 IF h>0 THEN 01290 

940 IF (. >0 Then 01340 

950 PNINT "CLFAK AND STNAIGHl" 

960 PHIM 

970 GOTO fe20 

980 LET H=INT ( 15*35. <*HIMO (X) ) 

990 LET M=H*5»C1 
1000 IF V>H THEN 1500 
1010 PHiM "IHROUGH CUKVE" 
1020 PNIM 
1030 LET ul=0 
1040 GOTO 620 
1050 LET E=E-(V-Dj»3.0 
1060 U E<0 THEN 1100 

1070 PHIM "VEHICLE "itV FEEI AHEAD" 

108 PHIM 

1090 GOTO fc20 

1100 IF V-0<5 THEN 1180 

1110 PHIM "VEHICLE PASSED PY"! 

1120 LET usV-D 

1130 PHIM 01 

1140 PHINf It MPH" 

1150 PHIM 

1160 LET Kl=0 

1170 GOTO 620 

1180 PHIM "VEHICLE BFING PASSED " 
1190 LET ijrlNT (25*4n»RN0 tX) ) 

1200 PHIM "GHflYHOLND BUS IN UlHEH LANE "! 
1210 PHIN r"|)OING"l 
1220 PHIM 01 
1230 PHIM "cPh"! 
1240 LET U=V*C 

1250 PHIM "C«aSH VELDCITYr"! 
1260 PHIM 

1270 PHIM"*HAT TYPE nt- FLOKEHS DO YOU wISH* AT YOLH FLNfRAL??" 
1280 GO lu 01560 

1290 PHIM "VEHICLE AHEAD lOOU FEET" 
1300 PHIM 

1310 LET 1)=IM (25*J5«HND (A) ) 
1320 LET Kl=l 
1330 GO Tu 620 

1340 PHIM "EARNING CURVE AHEAD " 
1350 LET wlsl 
1360 PHINI 



157 



1.5 tiU lU 6?0 

1380 PHIM tifcXFLLEM PUT WAITl't 

1390 PNIM 

1400 PHIM II rUNKEY ! I YOU HAN QUI 0^ GfiS!!" 

1^*10 «U To ^B-SO 

1420 PHIN ( "iiCN • T KNOW HOw» BUT YOU MflDF ITll" 

1430 PKIM 

1440 LfcT Kl=u 

1450 GU Tu fe?0 

14^0 PHIM ' rut p,»j>-Srt i-iue." 

1470 PHIM 

1480 PHINyiiYOU ANE LUCKY THJS YFAH!!" 

14'50 GQ fo ,lSf^0 

1500 PHINT "AHf TEhRIHLE" 

1^10 LET M=H-5«C1 

1S20 PKli\,T Hl-'WAS THE SPEED THhnUGH IHE CUHVE" 

1530 PkIM v5 II *AS YOUH SPFEI"-. BY INF ^AY'M 

1B4U GO To , 1270 

ISSO PHIM "YOU LEAD FOOTED "wt^sisJ." 

ISf-O PKIM HYOU VhAnT TO THY AGaIM, hIghT !!!!" 

)R70 PkIM "1-YES» 2-^.0 "I 

15S0 IfsPLi V 

1590 IK V=2 ThfN 16?n 

1600 N2=l 

1610 GO Tu 164 

1 620 PHIM .icHlCKEN" 

1630 GO To 1700 

1640 HESTofit 

1650 GO To 2?0 

1660 OATA 45».53fl0 

1670 DATA 60t.t;.13 

1680 DATA 70. .41. 15 

1690 DATA 80.. 39.18 

1700 END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 217 in Section II. 
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DECISIONS! DECISIONS! 

This program helps you make decisions based on weighing 
different factors. You input a category, name the items in the 
category and the factors required. Do not exceed 10 items or 5 
factors without changing the DIM statement in lines 30-60. If you 
modify, make sure you modify all the DIM statements 30-60. 




HEADER 



INPUT 
CATEGORY 



INPUT TYPES 
& FACTORS 



RESPONSE TO 
QUESTIONS 



PRINT RESULTS 
BEST IN EACH 
FACTOR 



Flowchart for Decisions! Decisions! 



FOR LOOP 



FOR LOOP 



FOR LOOP 



PRINT OVERALL 
BEST 
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Sample Run 



THE COMPIJTEF? y.TLL HELP YOU MAKE DECISIONS 

BUT YOU HAME TO HELP HE AS WELL. OF COURSE 

yHAT TYPE OF ITEM y DO YOU NEED HELP WITH 
? COMPUTERS 

FOR THE COMPUTER TO HELP YOUy IT WILL NEED 
A LIST OF COMPUTERS FROM YOU 

HOW MANY COMPUTERS WILL WE WORK WITH? 10 



1 T 1" M 1 


1 


? PDP-11 


[TLM II 




? PDP-8 


ITEM # 


? 


? TRS-80 


ITEM # 


4 


? PET 


L ri M B 


G 


? KIM 


ITEM * 


6 


? POLY 


[TIM II 


7 


? SWTPC--6800 


in M ■« 


8 


? MiTs-saoo 


ITEM * 


9 


? SPHERE 


[ ri M B 


10 


? IBM -370 


THIS li 


> THE 


CORRECT LIST? 



PW I I 

pDr- n 

TRS--80 



KIM 
POLY 

IjWII'C 6U00 

sun h'l 
I Hh 

HOW MANY FACTORS ARE IMPORTANT TO YOU ? 5 

FACTOR # 1 ? COST 

FACTOR # 2 ? SOFTWARE 

FACTOR # 3 ? EASE OF USE 

FACTOR # 4 ? RELIABILITY 

FACTOR # 5 ? SIZE 

ARE THESE THE RIGHT FACTORS? 

COST 

SOFTWARE 
EASE OF USE 
RELIABIL ITY 
SIZE 

FOR EACH COMPUTERS WE WILL RATE THE FACTORS 
THE BEST RATING IS 10. THE WORST IS 
PLEASE DO NOT USE THE SAME RATING TWICE 
FOR THE SAME FACTOR !!!!!!!! 
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PDP-11 

COST RATING ? 5 
SOFTyARE RATING ? 8 
EASE OF USE RATING? 6 
RELIABILITY RATING? 8 
SIZE RATING ? 9 
PDP~8 

COST RATING ? 4 
SOFTWARE RATING ? 7 
EASE OF USE RATING? 5 
RELIABILITY RATING? 7 
SIZE RATING ? S 
TRS~SO 

COST RATING ? 4 
SOFTWARE RATING ? 1 
EASE OF USE RATING? IC 
RELIABILITY RATING? IC 
SIZE RATING ? 10 
PET 

COST RATING ? 6 
SOFTWARE RATING ? 3 
EASE OF USE RATING? 8 
RELIABILITY RATING? 9 
SIZE RATING ? 3 
KIM 

COST RATING ? 10 
SOFTWARE RATING ? 5 
EASE OF USE RATING? 1 
RELIABILITY RATING? 1 
SIZE RATING ? 10 
POLY 

COST RATING ? 9 
SOFTWARE RATING ? 4 
EASE OF USE RATING? 2 
RELIABILITY RATING? 1 
SIZE RATING ? 5 
SWTPC--6800 
COST RATING ? 7 
SOFTWARE RATING ? 3 
EASE OF USE RATING? 4 
RELIABILITY RATING? 2 
SIZE RATING ? 5 
M ITS- 8 8 00 
COST RATING ? 1 
SOFTWARE RATING ? 7 
EASE OF USE RATING? 2 
RELIABILITY RATING? 2 
SIZE RATING ? 7 
SPHERE 

COST RATING ? 3 
SOFTWARE RATING ? 9 
EASE OF USE RATING? 3 
RELIABILITY RATING? 6 
SIZE RATING ? 2 
IBM--370 

COST RATING ? 1 
SOFTWARE RATING ? 10 
EASE OF USE RATING? 1 
RELIABILITY RATING? 10 
SIZE RATING ? 1 



RATINGS 



COST 

BEST F;; A TING IS THE KIM 
ITS RATING WAS 10 

SOFTWARE 

BEST RATING IS THE IBM-370 
ITS RATING WAS 10 

EASE OF USE 

BEST RATING IS THE TRS-80 
ITS RATING WAS 10 

RELIABILITY 

BEST RATING IS THE IBM-370 
ITS RATING WAS 10 

SIZE 

BEST RATING IS THE KIM 
ITS RATING WAS 10 

OVERALL BEST RATING 



THE PDP-11 HAS THE BEST RATING 
ITS AVERAGE RATING WAS 7.2 

THE COMPUTER HOPES HE HELPED YOU!!! 



RUN COMPLETE., 



Program Listing 

10 REM IHIS PROGHAf' HELPS TO MAKE UECISTONS 

30 DIM A$(10) 

AO OIM bS(5) 

50 DIM wdO*^) 

60 OIH C(10) 

70 PHINI 

eO PHIM 

90 PNIn1'»ThE CONiPUTFR WILL HELP YOU MAKE DECISIONS" 
100 PWINfH " 

110 PHIM"BUT YOU HAVE TO HELP ME AS WELL* OF COUHSE" 
120 PNINI 

130 PNINr"K»HAT TYPE OF ITEM, 00 YOU NEED HELP WITH" 
lAO INPUT 1$ 
150 PNIM 

160 PNIMP'FON THE COMPylEH TU HELP YOUt IT KILL NEED" 
170 PHINT"A LIST OF "IIS;" FHQM YOU" 
180 PHIM 

190 PHIM"HOw MANY "|i$J" WILL WE wORK WITH"! 
POO INPUf X 

21U IF X<2 OH X>10 THEN 190 
220 PHIM 
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230 FUR J=l TO ^ 

240 PHifs|>"lTtM # "IJ. 

250 INPUl &i(J) 

pf-i) NEXT J 

?7U PHIM 

280 PHINT'THIS IS THF CORHECl LIST?" 
290 FUH J=l To X 
300 PHINf AS(J) 
310 NtXl J 
320 PNINi 

330 PHINT'HOW MANT FaCTOHS AKE IMPOHTANl 10 YOU"J 
340 INPUl F 

350 IF F<1 ON F>5 THFIm 330 

360 PHIM 

370 FOR J=l To F 

380 PNIM»FACTOP « "iJt 

390 INPUT H$(J) 

400 NEXT J 

'410 PHIM 

1420 PHlNl'iAKE ThESF THE WIGHl FACTUKS?" 

1430 PHIM 

1^.40 FUH jsl To F 

1450 PHINI MtCj) 

1460 NEXT J 

470 PKlhf 

4P0 PNlM'tFOH EACH " Jl « ! WILL HATE ThE FflCTQHS" 

490 PHIM'tTHE BEST HATING IS 10. THE wOHSl IS 0" 

500 PH1M"PLEASE UO NOT UbE It-F SAME HATING TV<ICE" 

510 PHlNr"FOH THE SAME F ACTOK ! t !!!!!! " 

520 PKIM 

530 FOH K=l TO X 

540 PHIM AitCK) 

550 FUH L=l TO F 

5^-0 PHIM H*(L)!'" HATING"; 

570 INPLT H 
580 Q(K»U)=H 
590 NEXT L 
600 NtXT K 
610 PHIM 

620 PHIM" HATINGb" 

630 PHIM" " 

640 PHIM 
.650 FUH Isl To F 
1660 PHIM HS<T) 
1670 Yal 

1680 FOR Ns2 TO X 

1690 IF Ci (Y,T )>Q(NtT) THEN ?10 
i700 Y=N 
710 NEXT N 

720 PHlM'tBEST HAIING IS THE ";A'«(Y) 

730 PHIK)M£is RATING WAS "|0(Y,T) 

740 PHIM 

750 NEXT T 

760 PHINT 

770 FOR Y=l 10 X 

780 FOR 1=1 To F 

790 C (Y)=C (Y ) +0 ( Y .T) 

800 nEXI I 

810 NEXT Y 
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B20 jsl 

H30 FUK 1=2 Tn A 

8<tO If- C(J)>C(I) lHt^l 00B6O 

H5 J=l 

870 PHlNf" OVEHALL HhST RATING" 

HPO HKIMM -.t 

8<?0 PKliMiMiHE "lAiCJ);" HAS IHE BEST NAUNG*' 
900 PHIN|"IIS AVEkAGF HATING i*AS "JCCJj/F 
910 MKIN) 

920 I^HlNfi'THE CQH^-UTFH HOPES HE HELHFU YOLHI" 
930 END 
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COMPUTER CRAPS 

This program lets the user input a BASIC program and then 
search for all variables found within it. Variables must be single 
character. When using the assignment statement, the LET kejrword 
must be used. When printing, do not type commas (,) between 
variables, therefore; 10 PRINT A,B,C 
must be entered as 10 PRINT ABC 

This program is useful in analyzing variables to see whether 
they have been printed, if they are assigned before being used, etc. 

Of course, the clever user can use this program as a text editor. 
Remember to indent the END four spaces, pretending that a line 
number was present. Line numbers are not required with the rest of 
the lines, and the other commands will still function except the TEST 
function. 

We can modify a line or add lines whether using it with variables 
or as a text editor. 



ENTER LINES OF TEXT 
INCLUDING END 




MODIFY 




ADD 


1 









LIST 








TEST 







LOCATE 
ALL 
VARIABLES 




Flowchart for Computer Craps 
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Sample Run 



«**#******yARIABLES*****>|(**)f(* 
+ +f + +. + +f + +f + + +++ + +f + + +++ + +++ + 



EHT^R PROGRAM T REMEMBER TO USE LINE NUMBERS FROM 

01 TO A MAXIMUM OF 25 <00<LN<26) 

ENTER NO MORE THAN 5 MARIABLES PER LINE 

USE AS THE LINE NUMBER THE SAME NUMBER AS THE 

ENTRY NUMBER SUPPLIED BY THE PROGRAM TO INSURE 

PROPER OPERATION OF THE PROGRAM 



ENTRY # 1 

? 01. LET A=B*C 

ENTRY # 2 

? 02 INPUT A 

ENTRY * 3 

? 03 INPUT B 

ENTRY * A 

? 04- INPUT C 

ENTRY # 5 

? 05 'INPUT D 

ENTR-Y ♦ 6 

? 06 - IF A>B THEN 08 

ENTRY # 7 

? 07 -LET C+D 

ENTRY # 8 

? 08 LET C-fA/Ii 

ENTRY # 9 

? PRINT A 

ENTRY # 10 

? END 

ENTRY # 11 
? 11 END 

THE FOLLOyiNG OPTIONS ARE AVAILABLE 
LIST 
MODIFY 
ADD 
TEST 

OPTION? LIST 



ENTRY # 


1 1 


LET A=B*C 


ENTRY # 


2 02 


INPUT A 


ENTRY # 


3 03 


INPUT B 


EWTRY # 


4 04 


INPUT C 


ENTRY # 


5 05 


INPUT D 


ENTRY * 


6 06 


IF A>B THEN 08 


ENTRY # 


7 07 


LET C+D 


EM TRY # 


8 08 


LET C+A/D 


ENTRY # 


9 F^'R 


INT A 


ENTRY # 


:l. E 


ND 


ENTRY # 


1 1 1 


1 END 



OPTION? M 

yHICH ENTRY NUMBER 
? 

CI LET A=B*C 
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ENTER REPLACEMENT LINI 
?. 01 REM TEST PROGRAM 
01 REM TEST PRCUSRAM 



OPTION? M 



WHICH ENTRY NUMBER 
?. 9 

PRINT A 

ENTER REPLACEMENT LINE 
?■ 09 PRINT 
09 PRINT 



OPTION? M 



WHICH ENTRY NUMBER 
09 .PRINT 

ENTER REPLACEMENT LINE 
? 09 F'RINT A 
09 PRINT A 



OPTION? M 



WHICH ENTRY NUMBER 
?• 10 

e:-ni:i 

bhter replacement line 

? 10 PRINT A-fB*C 
10 PRINT H+B*C 



OPTION? L 



N 1 1 
iJ I i. 

ill I 
N 1 1 
il I I 
li 1 1 



I I I II I i 1 I Kiii'l iii'l 
NPUT A 
NPUT B 
NPUT C 
NF'U I" .0 

1,1 I III N m8 
r C+D 
I lM-A/U 
PRINT ri 

I I II I il I i1 i b f I 

II I::. Nil 



npTION'f TEST 



IN THE GIMEN PROGRAM 



I ABLE S FOUND IN INPUT STATEMENT; 

LINE * 02 
LINE # 03 
line: # 04 
LINE * 05 

;IhBLE3 found IN PRINT STATEMENT: 

LINE * 09 
ij:ne # 10 
L.INE # 10 

i.,.:i:NE * 10 



HE * 
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Program Listing 



10 i^EM VAHIABLF PAlH-FLOw ANALYSIS 

30 HEM THIS PROGRAM ASSUMES THAT THE LINE NUMBEHS 

40 REM ENTERED BY THE USER ARE CONSISTENT iKiTH THAT OF 

50 REM THE ENTRY NUMBERS 

tiO REM DIMENSION ALL VARIABLES USED AS MATRICES AND VECTORS 
70 DIM P$(25). Q$(25.5)t R$(25.5)» T$(25,5) 
80 DIM U$(25t5> 

90 REM CLEAR ALL MATRICES AND VECTORS 
100 REM BY SETTING THEM EQUAL TO A BLANK SPACE 
110 REM CLEAR VECTOR PS 
120 FOR I»l TO 25 
130 P$(I)»tt 
140 NEXT I 

150 REM CLEAR MATRIX Q$ 

160 FOR |al TO 25 

170 FOR J.l To 5 

180 QS(I,J)»" 

190 NEXT J 

200 NEXT I 

210 REM CLEAR MATKIX H$ 

220 FOR I«l To 25 

230 FOR J»l TO 5 

240 W»(1,J)»" 

?50 NEXT J 

260 NEXT I 

270 REM CLEAR MATRIX T$ 

^00 FUR isi rn ?5 

n)u i*(itj)=" " 

310 .-iEXI J 
320 NEXT I 

330 REM CLEAR MATRIX US 

340 FOR I«l To 25 

350 FOR jal To 5 

360 U$(ItJ)»" 

370 NEXT J 

380 NEXT I 

390 REM uUTPUT STARTING LAHEL 
400 PRINT 
410 PNINI 
420 PHIM 
430 PRINT 

440 PKIM" -•« 

450 PRINT"««««««»«»«VARIA8LEb«»«»*««««»" 

460 PRINT"— " 

<470 fNINT "♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦" 

i,qi) i^kIk I 

SOU 1 "t\ Ipt^ PhOG^^am, HEMtCRFw ro USE LINF nUMHE«S FROM" 
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sr.) r'rtlN I '"•) I TO A MfiXlMUM OF 25 (00<LN<?^)" 

lis I 'tt- ^ fFH Nil N-f">HF Than 5 VAklABLtS HFh LiNt" 
530 PNINT'USE AS THF LINE NUMHFR THE SAMF NUHPKH AS THE" 
5A0 PHINT"ENTRY NUMBER SUPPLIED 8Y THE PROGRAM TO INSURE" 
550 PKINT"PHOPER OPERATION OF THE PROGRAM" 
560 P«INT 

570 HEM ENTRY OF USER'S PROGRAM TO BE ANALYZED 
580 Nal 

590 PRINT "ENTRY #"IN 
600 INPUT Li 
610 PS(N)»LS 

620 REM IF THE LAST ENTRY WAS AN END STATEMENT 

630 REM TERMINATE ENTRY MODE 
J64Q l£^-SUBSTRtLSi4»3)»"END" ThEN 670 
»650 N»N»1 
0660 GOTO 590 
)670 PRINT 

»680 REM DISPLAY AVAILABLE OPTIONS TO THE USER 
690 PR1NT"THE FOLLOWING OPTIONS ARE AVAILABLE" 

■7-00- PRINT" LIST" 
710 PRINT" MODIFY" 
720 PRINT" ADD" 

'j730 PRINT" TEST" 

'J740 PRINT 

j750 PR1NT"0PTI0N"I 

0760 INPUT LS 

fi770 IF LS»"L" OR L$»"LIST" THEN 840 

780 IF L*""M" OR LS»"M00IFY" THEN 900 
0790 IF LS»"T" OR LS«"TEST" THEN U<»0 
rj800 IF LS»"A" OR L$»"AOD" THEN 1030 
1810 PRINT"COMMAND IS NOT RECOGNIZED" 
,820 GOTO 740 

830 HEM PROCESS LIST OPTION 

840 PHINT 

850 FOR 1»1 TO N 

860 PhIN1"ENTRY U "IT»" "!Pi(I) 
(970 NEXT I 
880 PHINT 

ago GOTO 740 

■ 900 PhINT 

910 HEM PROCESS MODIFY OPTION 
,920 PRINT"WHICH ENTRY NUMBER" 
,930 INPUT L 

•940 IF L<01 OR L>N THEN 960 
950 GOTO 980 

i960 PRINI"LINF NUMBER" JL I "HAS NOT BEEN ENTERED" 
970 GOTO 920 
980 PNINT PS(L) 

990 PRINT "ENTEH REPLACEMENT LINE" 
iOOO INPUT P$(L) 
1010 PRINT PS(L) 
1020 GOTO 1740 
1030 PRINT 

1040 REM PROCESS ADD OPTION 

1050 PRINT"LAST LINE ENTERED IS" 

1060 PRIM P$(N) 

1070 PHINF"ENTeR new LINES" 

1080 PRINT"ENTRY"INI 

1090 INPUT L$ 

1100 PS(N)»LS 

1110 IF SU8STR(L$«4.3)B»END" THEN 740 
1120 N»N*i 
1130 GOTO 1080 

1140 miM 

USO REM ANALSlS 

1160 HEM FIND OUT WHAT THE STATEMENT IS ON LINE K 
1170 K»l 

1180 IF SUBSTH(P$(K) i4t3)«"END" THEN 1690 
1190 IF SyBSTH(PS(K) i4t5)»"INPUT" THEN 1280 
1200 IF SUBSTRtPSlK} i4t3)»"LET" THEN I3a0 



1210 IF SUBSTR{PS(K> t4.5»»"PRINT" THEN 1480 
1220 IF SUBSTR«P$(K) .4t2)«"lF'' THEN 1580 

1230 IF K>25 Then iz^o 

1240 K=K*i 
1250 GOTO 1180 

126l0 PN1M'<PNQGRAH ERROR. NO END STATFMENT" 
1270 REM PROCESS INPUT STATEMENTS 
1280 jsl 

1290 FOR I»10 TO LEN(P$(K)) 
1300 ZS»SUBSTR(P$(K) tl,l) 
1310 CHANGE 2$ TO A 

i32a_IF A (2X0 OR A(2)>26 THEN 1350 
1330 US(K.J)«SUBSTR(P${K) ,1,1! 
1340 J»J*1 
1350 NEXT I 
1360 GOTO 1240 

1370 REM LET STATEMENT SUBROUTINE (QS) 
138Q J»l 

1390 FOR I«8 To LEN(P$(K!) 
1400 2$aSU8STR(P$(K> ,1,1) 
1410 CHANGE 2$ TO A 

1420 IF A(2)<0 OR A(2)>26 THEN 1450 
1430 QS(K,J)aSUBSTR(P$(K) ,1,1) 
1440 J«J*1 
1450 NEXT I 
1460 GOTO 1240 

1470 REM PRINT STATEMENT SUBROUTINE (R$) 
1480 J«l 

1490 FOR I«10 TO LEN(PS(K)) 
1500 2$»SyBSTR(P$(K) ,1,1) 
1510 CHANGE 2% TO A 

1520 IF A(2)<0 OR A(2)>26 THEN 1550 
1530 «S(K,J)aSUBSTR(P$(K) ,1,1) 
1540 J«J*1 
1550 NEXT I 
1560 GOTO 01240 

1570 REM IF STATEMENT SUBROUTINE (T$) 

iseo J»l 

1590 FOR I«7 To LEN(P$(K)) 

1600 IF SUBSTR(P$(K) ,I,4)«"THEN" THEN ,1670 
1610 2S«SU8STR(P$(K) ,1,1) 
1620 CHANGE 2$ TO A 

1630 IF A(2)<0 OR A(2)>26 THEN 1660 

1640 T$(K,J)3SU8STR(P$(K) ,1,1! 

1650 JaJ*l 

1660 NEXT I 

1670 GOTO 1240 

1680 REM ••«««ANAI.YSIS*««»» 

1690 PRINT 

IIM. PRINI," " 

1710 PHINT"VARIABLES FOUND IN THE GIVEN PROGRAM" 

1720 PRINT" -•• 

1730 PRINT 

1740 REM PRINT ALL VARIABLES FOUND 

1750 PRINT"VARIABLES FOUND IN INPUT STATEMENTS" 

1760 PRI^lT 

1770 FOR K»l To 25 

1780 FOR J-1 To 5 

1790 A(2)«27 

1800 Z$«US(K,J) 

1810 CHANGE 2$ TO A 

1820 IF A 12X1 OR A(2)>26-THEN 1840 

1830 PRINT U$(K,J) »"LINE i " J 5UBSTR (P$ (K ) , 1 ,2 ) 

1840 NEXT J 

1850 NEXT K 

1860 PRINT 

1870 PRINT"VARIAHLES FOUND IN PRINT STATEMENTS" 

1880 PR INT 

1890 FOR KBl To 25 
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1900 FOR J»l To S 
1910 A(2)327 
1920 2S»R$(K.J) 
1930 CHANGE Z$ TO A 

19AQ IF A (2X1 OR A(2)>26 THEK I960 

1950 PNINT t*$(KtJ) t"LINE « "iSUflSTRd^SCK) tlt2) 

I960 NEXT J 

1970 NEXT K 

1980 PRINT 

1990 PHINT'tWARlABLES FOUND IN IF STATEMENTS" 

2000 PRINT 

2010 FOR R»l To 25 

2020 FOR J»l To 5 

2030 A(2)a27 

20<i»0 25=T»(KtJ) 

2050 CHANGE li TO A 

2060 IF A{2)<1 OR A{2)>26 THEN ?080 

2070 PRINT T$ (K»J) ."LINE # " $ SUHSTR (P$ (K ) . i .2 ) 

2080 NEXT J 

2090 NEXT K 

2100 PRINT 

2110 PRIN1"VARIABLES FOUND IN LET STATEMENTS" 

2120 PRINT 

2130 FOR K«l TO 25 

2140 FOR J«l To 5 

2150 A(2)=27 

2160 2$»Qi(K.J) 

2170 CHANGE 2$ TO A 

2180 IF A(2}<1 OR A(2)>26 THEN 2200 

2190 PRINT OS (K»J) •"LINE # " } SLBSTR (P$ (K ) t I t2 ) 

2200 NEXT J 

2210 NEXT K 

2220 PRINT 

2230 PRINT"»«»««»RUN COMPLE TE««»»*»" 
22<i0 END 



ART GRAPHICS 

Art Graphics lets you draw semi-random pictures based on the 
binomial theorem. You may specify the array size and which ele- 
ments to blank, such as every multiple of N except where N = 1, in 
which case everything will be blanked and nothing will be printed. 
Give it a try. 



HEADER 



CALCULATE 
SINGLE 



OUTPUT 
ALINE 




INPUT 
PARAMETERS 




FORMAT 



CALCULATE 
DOUBLE 



OUTPUT 
A LINE 




UST 
LINE 



A 

( END j 



CALCULATE 
QUAD 



OUTPUT 
A LINE 




Flowchart for Art Graphics 
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Sample Run 



RANDOM ART 



AVAILABLE PATTERNS 



1 

2 
3 



SINGLE 
DOUBLE 
QUAD 



OKAY ART FELLOWS? WHAT TYPE ? 1 
WHICH MULTIPLES SHOULD BE BLANKS? 3 
HOW MANY ROWS AND COLUMNS 
DO NOT EXCEED 36..., PLEASE? 12 



* 




* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 




* 


* 




* 


* 


* 


* 


* 






* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 




* 


* 


* 


* 


* 


* 




* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


*■ 


* 


* 


* 


* 


* 






* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 




* 




* 




* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 




* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 



RUN COMPLETE. 
RUN 



OKAY ART FELLOWS I- WHAT TYPE ? 1 
WHICH MULTIPLES SHOULD BE BLANKS? 2 
HOW MANY ROWS AND COLUMNS 
DO NOT EXCEED 36 .... PLEASE? 17 

}}C)|Cj|C ^!|C^ )|£^)jC ^)|C 

*4f -4/ 'if "ii ^^^^ 

^ Jf. ^ jTi^^^ /fi ^ ^ ^ 

jf. Jf^ 1^ ^^^^^^^^^^ 

*-J/ •J/ ^ -^f 

Jf. ^ ^ ^ /fi ff' 'T-T*'T''T^'n'T>'T'-T>'T' 



RANDOM ART 



AVAILABLE PATTERNS 



3 



1 



SINGLE 
DOUBLE 
QUAD 
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* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


****** 


* 


* 


* 


* 


* 


* 




* 


* 


* 


* ***** 


* 




* 


* 


* 


* 






* 


* 


* * * * * * 




* 




* 


* 




* 


* 


* 




)K )^ )^ !^ )|( J|C 


* 


* 


* 




* 


* 




* 


* 


* 


5|t )|^ )|( )fc 


* 


>K 


* 


* 


* 


* 


* 


* 


* 


* 


***** * 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


****** 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


******* 



J UN COMPLETE. 

■lUN 



RANDOM ART 



AVAILABLE PATTERNS 

1 SINGLE 

2 DOUBLE 

3 QUAD 

OKAY ART FELLOWS? WHAT TYPE ? 2 

WHICH MULTIPLES SHOULD BE BLANKS? 3 

HOW MANY ROWS AND COLUMNS 

DO NOT EXCEED 36 .... PLEASE? 17 

**************** 

* * * * * * * * * * * 
***** * 
****** **** * * 
**** ** **** 

* * * * * 

* * * * * * * * 
** ******* 

* * 
******* ** 

* * * * * * * * 

* * * * * 
**** ** **** 
** **** ****** 

* * * * * * 

* * * * * * * * * * * 

* * * * ************ 



RUN COMPLETE 
RUN 
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RANDOM ART 



AMAILABLE PATTERNS 



1 SINGLE 

2 DOUBLE 

3 QUAD 

OKAY ART FELLOWS, WHAT TYPE ? 3 
WHICH MULTIPLES SHOULD BE BLANKS? 3 
HOW MANY ROWS AND COLUMNS 
DO NOT EXCEED 36 .... PLEASE? 18 



* * 


* * * * * 


* 


****** 


* 








****** 


* 


* 


* * 


* 


****** 




* * 


* * * * 






* 


* * 


* * 








* 


* 




* * * * 




* * 


* 




* * * 




* * 






* * 




* 






* 




* 






* 




* * 






* * 




* * 


* 




* * * 




* * 


* * 




* * 




* * 


* * * 




* * * * 




* * 








* 


* * 


* * * # * 








* * 


***** 


* 




* 


* * 


* * * * * 


* 




* 


RUN 


COMPLETE. 








RUN 











RANDOH ART 



AMAILABLE PATTERNS 



1 SINGLE 

2 DOUBLE 

3 OUAD 

OKAY ART FELLOWS. UHAT TYPE ? 3 
WHICH HULTIPLES SHOULD BE BLANKS? 5 
HOW MANY ROWS AND COLUMNS 
DO NOT EXCEED 36 .... PLEASE? 3A 

************************************ 
**** **** **** ** ***************** 
*** *** *** * **************** 
** ** ** *************** 
^ * * ************** 

************* ************* 
**** **** ** ************ 
*** *** * *********** 
** ********** 

* * ******** 

******* 
****** 
***** 



******** 



«■ * * * * 

* * * * * * 

* * * * * * * 

* * ♦ * * « * * 
********* * * 
********** ** ** 
*********** * *** *** 
************ ** **** **** 
************* ************* 
************** * * * 
*************** * * * * * * 
**************** * * * * * * * * * * 

+ **************** ** **** **** **»* 
+:«******«*******♦******************* 



RIJi! CIJMPI FTP 



rrograiii usuiig 

10 REM PRINT TITLE 
20 PRINT 

30 PRINT" RANDOM ART" 

kO PRINT" — .11 

50 PRINT 

60 REM ART USING BINOMIAL THEOREM 
80 DIM P(36»36) 
90 MAT F«ZEH 

100 PRINT"AVAILABLE PATTERNS" 

110 PRINT" " 

120 PRINT"! SINGLE" 
130 PRINT"2 DOUBLE" 
UO PHINT"3 QUAD" 

150 HKINT»OKAY ART FELLOWS. *HAT TYPE"! 
160 INPUr 

170 IF Ool AND 0<>2 AND 0<>3 THEN 00150 
180 PRINT»*HICH MULTIPLES SHOULD BE BLANKS"! 
190 INPUT Q 

200 PRINT»H0«i MANY ROWS AND COLUMNS" 
210 PHINI"00 NOT EXCEED 36, .. .PLEASE" I 
220 INPUT T 

230 IF T«(36-T)<0 THEN 200 

2^*0 IF 0=1 THEN 270 

250 IF 032 THEN 460 

260 IF Os3 THEN 690 

270 FOR Hml TO T 

280 FOR C«l To T 

290 IF (H-1)«{C-1)«0 THEN 320 

300 P(RfC)«P{R»C-l)*(P{R-l»C)/Q) 

310 GOTO 330 

320 P{RfC)sl 

330 NtXT C 

340 NEXT H 

350 FOR Nsl TO T 

360 FOR C«l To T 

370 IF P(R,C)s0 THEN 410 

380 IF (P(R,C)/Q)«INT(P(«,C)/Q) THEN 410 

390 PHINr"« "! 

400 GOTO 420 

410 PRINT" "I 

420 NEXT C 

430 PRINT 

440 NEXT R 

450 STOP 

460 2»T 

470 NsZ 

480 FOR H»l TO N 

490 FOR C«l TO Z-1 

500 IF (N»l)»(C-l)a0 THEN 530 

510 P(R.C)sP(R.C-l)*P(R-lfC) 

520 GOTO 540 

530 P(H»C)=1 

540 NEXT C 

550 ZaZ-1 

560 NEXT R 

570 ZaN 

580 N»2 

590 FOR H»Z TO 1 STEP -1 
600 FOR C*Z TO N STEP -1 
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610 IF (H-Z)« (C-Z)«0 THEN 6A0 

620 M(H»C)sP<RtC*i)*P(R*UC) 

630 GOTO 650 

640 P(R»C)*1 

650 NtXT C 

660 NaN*i 

670 NEXT H 

680 GOTO 350 

690 M=Q 

700 Y=T 

710 £=INI (Y/2) 

720 B5«2«2 

730 Zl=2 

740 Z2»Zl 

750 23aZ2 

760 X4.ZJ 

770 ASmAi* 

7P0 FOR i«l To Zl 

790 FOR JM\ To Z 

800 IF (J-l)«(I-l)«0 THEN 1^30 
810 P(I.J}3P(i,J-l)»P(I-ltJ) 
820 GOTO 840 
830 P{I»J)al 
840 NEXT J 
850 ZaZ-1 
860 NEXT I 
870 N=Z1 

880 FOR i»l To Zl 

890 FUR JsY TO X5*l STEP -1 

900 IF lal THFN 940 

910 IF JaY THEN 940 

920 P(I»J)aP(I»J*n*P(I*l»J) 

930 GOTO 950 

940 P <I »J)»l 

950 NEXT J 

960 XbsXb^l 

970 NEXT I 

980 NaZ2 

gqO FOR 1«Y To *4«l STEP -1 
1000 FUH J»l TO Z2 
1010 IF Jsl THEN 1050 
1020 IF laY THFN 1050 
1030 P(I»J)sR(I»J-l)»P(I-l»J) 
1040 GOTO 1060 
1050 P(I»J)=l 
1060 NEXl J 
1070 Z2sZ2-l 
1080 NtXI I 
1090 N*Z3 

1100 FOR l«Y To N*l STEP -1 
1110 FUR jsY Tf) Z3*l SlEP -1 
1120 IF jsY THFN 1160 

1130 IF IsY THFN 11<^0 

1140 P ( I » J) =P U ♦! t J) ♦P ( I » J*l ) 

1150 GOTO 1170 

1160 P{ItJjsl 

1170 NEXT J 

1180 Z3«ZJ»1 

1190 NEXT I 

1?00 GOTO 350 

1210 FNH 



LOVE THAT PRINTER GRAPHICS 

You may input any message. The program will spell out "love" 
using your message as the background. For best results your mes- 
sage should be less than 60 characters. 




INPUT A$ 



LEN A$ 



FOR LOOP 
BREAK UP 
TEXT 









SET 
MARGIN TO 133 






— » 




USING READ 
AND DATA 
COMPUTE 
WHERE SPACES GO 







PRINT A 
LINE 



FOR LOOP 
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Program Listing 



10 SEM LOVE 

J4-ii£l( kT APRIL 197» 

30 DIM l$<240) 

40 INPLF AS 

50 L»LEN(AJ! 

60 FOR J»0 To INT ( 120/L) 

70 rOR I»l To L 

80 I» (J»L*I)-6U8S>TH(A$f 1,1) 

90 NtXTl 
100 NEXT J 
110 MARGIN 133 
120 C»0 
130 Al.Pal 
140 C«C*1 

150 IF Ca37 Then 00430 

160 PKIKr 

170 HEAD A 

leo A«2«A 

190 fll«Al*A 

200 IF 9m\ IHFN 0Ci?6O 

?10 FOR i.l TO ft 

??0 PNIMM I., 

230 NEXT I 

240 P«l 

250 r-Q Tu 00300 

260 FOR laAl-A TO Al-1 

?70 R«IM Ti ( I ) I 

2fl0 NEXT I 

290 P»0 

300 If AI>1?0 THEN 00130 
310 GO To 00170 

32 DATA 60.l.l?,iiS.9.12.3.tj.24,l7,eS.4.6,23.?l,6.4,6.22.l2.5,fe»5 
330 DATA 4,f.t21,H.P.6.4.4,h.21,10.10,5.«»,4.6,21.9.n,5.4»4.6.21.8 
3i.O RATA n,6,4,4.6.?1.7tll,7.4,*.,6.?l,ft.U.8i4.4.6.19,ltl.5fll»9 
3^0 OATA 4,4,f.,19.1,1.5»10.10,i,,'.,6.18,2.1,fc,e.n.4,4,6.17,3.1»7t5 
3f0 CiATA 13,4,4,fc.lS.S,2,23.5,l,29.b,17,H,1.29t9»9,12«l.l3,5.40.l 
37 HATA U13,5i40,l,4,6.13.'!.10,6.12.5!,l.S.6fll.3.11.6.14.3,l,5 
3P0 HAfA 6,ll,3,ll.f-.15i2.1.^,f.,9,3.12.f-,16.1.'l.6.fe.9,3.12t6»7»l 
39 DATA l0.7,6,7t3.!3.fe.6.2.10.7t6,7,3.l3.l4,10.8»6.S.3,14.6.6»2 
400 OATa li).H,6,5.3.l4,6.7,l,in,q,6.3.jtlb,6,16tl.lt9,6t3.3.15i6.l5 
410 C4TA ?.l,lO,6.1.3tlh.fttl^«3tl.lU.10,lfc,ft,l2.5,l.ll,8,13«27,ltll»8 
4eO OATA 13i27.1ifcn 
430 FOR jsl To 25 
440 MNIM 
4=0 NtXl J 
4^0 SIOH 
470 FND 
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Section II 
Programs For 
TRS-80 and PET® Computers 

This section contains programs written specifically for the Radio 
Shack TRS-80 computer using Level II BASIC. Program listings are 
included for 12 of the games found in Section 1. Some programs were 
completely rewritten. For instance, Computerized Hangman now 
includes a graphic display as well as twice as many vocabulary words. 

Some of the other programs will run with no modifications. In 
general, none of the three plotting routines, Plot Your 4 Equaitons, 
Plot Your 10 Equations, or Polar Graphic Subroutine should be used 
on a TRS-80. This is because of problems with screen size, scrolling, 
and execution time. 

You will need Level II BASIC and 8K of memory. The program 
Star Warp needs 16K of memory. 

Most of the programs in this book will run on the Commodore 
PET® however, some conversion may be required. Before keying 
in one of the programs, examine the listings carefully. If two listings 
are shown for the same program, determine which listing more 
closely resembles the PET®BASIC. In most cases, this will be the 
listing in Section I of this book. Section II contains listings in TRS-80 
BASIC. If you desire to convert the TRS-80 version to your PET® 
there are several important differences you should be aware of. 

• Video screen size for the TRS-80 is 64 characters by 16 
lines. 

• TRS-80 Level II BASIC allows up to 256 characters in a 
single instruction. 

• Several TRS-80 instructions do not have an equivalent in 
PET®BASIC(suchas DEFINT, DEFDBL, DEFSTR, and 
PRINT©). 

• Video display graphics are handled completely differently. 
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The following is a list of TRS-80 instructions along with their 
PET®equivalents. This should give you an idea of some of the subtle 
differences between the two. 



TRS-80 



PET 



CLS 

RND(X) 

A$ = INKEY$ 

PRINT TAP (5) A 

FOR I = 1 TO 5: NEXT 

NEXT K,L 



PRINT"®" 
INT(X*RND(0) + .1) 
GET A$ 

PRINT TAB(5); A 

FOR I = 1 TO 5: NEXT I 

NEXT K: NEXT L 



Cursor movement is also handled differently on the two 
machines. On the TRS-80 the PRINT ©command is used to position 
the cursor at an absolute location on the screen. Position is in the 
upper left-hand corner and position 1023 is the lower left. For 
example, PRINT@64, "HI THERE" would cause HI THERE to 
appear, starting in the first character position of the second line of 
the display. Other cursor movement is done using the PRINT 
command with a CHR$ operand. For example, PRINT CHR$(28) 
causes the cursor to return to position 0. Other values which may be 
used, along with their functions, are in the following table: 
PRINT (8) Backspace and erase current character 
CHR$ (13) Carriage return 

(14) Turn on cursor (The cursor on the TRS-80 is the 
underscore (--).) 

(15) Turn off cursor 

(23) Convert to 32 character mode (all characters 
become twice their normal size) 
PRINT (24) Move cursor one position left 
CHR$ (25) Move cursor one position right 

(26) Move cursor one line down 

(27) Move cursor one line up 

(28) Return cursor to position 

(29) Move cursor to beginning of line 

(30) Erase to end of line 

(31) Erase to end of screen 
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WUMPUS 



Program Listing 

19 m wMi THE mm 

20 mm 

20 DIH P<5) 

40 PRINT" INSmCTIONS? (V-N)"; 

% INPUT 1$ 

60 IF I$=«N" THEN 80 

70 mm 640 

80 CLS:DIM 5(28,3) 

m FOR J=iTO20 

100 m K=lTOi 

110 RERD S(.LK) 

1-20 NEXT K,.J 

130 DfiTfl 2. 5, 8.. L 2. 10; 2.. 4.. 12; 3; 5; 14; 1; 4; 6 

140 DRIB 5; 7; 15; 6; 8; 17; 1; 7; 9; 8; 10; 18; 2; 9; 11 

158 DflTfl 10; 12; 13; 3; 11; 13; 12; 14; 28; 4; O; 15; S; 14; 16 

160 DflTfi 15; 17; 20; 7; 16; 18; 9; 17; 19; IL 18; 20; 13; 16; 19 

170 REH LOCfiTE L RRRflV ITEMS 

180 m 1=V0U; MUMPUS; 3&4=PITS; 546=BfiTS 

190 DIN L(6) 

208 DIM 11(6) 

210 FOR J=1T06 

220 L(J)=RND(20) 

230 t1(J)=L(J) 

240 NEXT J 

250 REH CHECK FOR CROSSO'v-ERS 

260 FOR J=1T06 

270 FiOR K=JT06 

2C^0 IF J=K THEN 380 

290 IF L(J)=L<K) THEN 210 

300 NEXT K 

310 NEXT J 

320 m SET RRROWS 

320 fl=5 

340 LL=L<i) 

350 REM m THE GAME 

360 PRINTTRB(20)"HUNT THE yUMPUS" 

370 PRINTTflB(20)" " 

380 REM HAZARD l-lfffiNINGS AND LOCATIONS 

390 QOSUB 1108 

400 REM MOVE OR SHOOT 

410 QOSUB 1280 

420 IF 0=2 THEN 470 



430 GOSUB 1240 

449 IF F=8 THEN 3:96 

450 GOTO m 
466 REM HOVE 
470 GOSUB 1840 

430 IF F=0 THEN 390 
490 IF F>ft THEN 5-10 
50® REM LOSE 

510 rRINT"DUMM'-'; VOU LOSE. wUMPII JUS' L"'"E '-'OU ■ ! 
520 GOTO 560 
526 kEF! win 

54e PRINT"OKflV, HOT-SHOT. THE WUHPII HILL GET THEIR REVENGE " 
550 PRIKT-HUHPII SPIRITS HILL mm VOU 'TIL THER - 
568 FOR MT06 
570 L<J)=H<J) 
588 NEXT J 

590 PRIHT"SfiME SET UP? <V-N)»; 
608 irf>UT 1$ 
618 OS 

620 IF IIO-V im 218 

638 GOTO 330 

640 m INSTRUCTIONS 

658 PRiNTmcopE TO 'HUNT m mm. '" 

668 PRINT -.PRINT" THE WLIMPUS LIVES IN ft CflVE OF 28 ROOMS. EACH ROOM" 
678 PRINT'HflS 3 TUNNELS LEADING INTO OTHER ROOMS. (LOW AT A" 
688 reiNT"DU(»ECAJ€DRON TO SEE HOW THIS WORKS - IF VOU OW'T KNOH" 
698 PRINT"MT A DUODECffiCDRON IS ASK SOMEONE. )" 
im PRINT :PRINT»HA2ARDS" 
718 PRINT"* BOnCfLESS PITS 

728 PRINT" THERE ARE Ti40 OF THESE. FALL INTO ONE OF THEM" 
720 PRINT" m mi WILL LAM) IN CHINA. " 
740 PRINT"* SUPER-BATS 

750 PRINT" TWO OTHER ROOMS HAVE SUPER-BATS. IF VOU GO T^CRE. " 
768 PRINT" A BAT GRABS VOU m Tffl<ES VOI TO SOME OTHER ROOM AT" 
778 PRINT" RANWM (WHICH MIGHT BE TROUBLESOME). " 
780 INPUT"PI€SS ENTER TO CONTINUE^: II 
790 CLS: PRINT :PRINT"THE MUMPUS -" 

880 PRINT; PRINT THE tfJWS IS NOT BOTHERED BV THE HAZARDS HAS" 
810 PRINT"SUCKER FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLV" 
820 PRINT"HE IS ASLEEP. TWO THINGS WAKE HIM UP: VOUR ENTERING'' 
820 PRINT"HIS Rrai OR WJR SWTOTING AN AR^OI-l. " 

840 PRINT:PRINT" If Tl€ HUfPUS Wm. !€ MOVES (75^i CHfflCE) Of€ ROOM' 
850 PRINT"OR STA'i^ STILL (25Ji CfflNCE). fFTER mi> IF HE IS Hffi?E" 
860 PRINT" Vai ARE, HE EATS VQli LiP (AND, BOV.. DO VOJ LOSE!). 
870 PRINT :INPUT"PRESS ENTER TO CONTINUE"; 1$ 
838 CLS: PRINT ;PRINT"VOU 
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898 I^I^rr: PRINT" EACH Tim VOU Mfft' HOVE OR SHOOT fl CROC:KED flRPm " 
900 PRINT; PRINT"* MOVING" 

910 PRINT" VOU CAN 80 ONE ROOM (THROSJGH ONE TUNfCL). " 
920 PRINT:PRINT''* ARROWS" 

930 PRINT" VOU HA-'/E 5 ARROWS. VOU LOSE klHEN VOU RUN OUT. " 
940 PRINT" EACH ARROW CAN QO FROM i TO 5 ROOMS. VOU AIM BV 
950 PRINT" TELLING THE COMPUTER THE ROOM<S) VOU WANT THE ARROW" 
960 PRINT" TO QO. IF THE ffl?ROH CAN'T QO THAT WAV (I.E. NCs " 
970 PRINT" TlMiEL) IT MO^/ES AT RfWffll TO THE fCXT ROOM. 
980 PRINT" IF THE SRROW HITS THE WUMPUS. 'M WIN. " 
990 PRINT" IF THE ARRCM HITS 'M, VOU LOSE. " 

1000 INPUT»PRESS ENTER TO CONTINUE"; If 

1010 CLS: PRINT: PRINT" WW^INGS -" 

1028 PRINT -.PRINT" WHEN VOU ARE WE ROOM AW^V FROM THE lAJMPUS OR HAZARD.. 

101-0 PRINT-THE COWTER SA'VS:" 

1040 PRINT; PRINT" WUMp!.lS - 'I SMELL A WMPUS''" 

1050 PRINT" BAT - 'BATS NEARBV" 

1060 reiNT" PIT - 'I FEEL A DRAFT " 

1070 PRINT: PRINT :m!T"PRESS ENTER TO BEGIN THE GAME".iI$ 

1080 CLS; PRINT 

1090 mm 

1180 REM PRINT LOCATION AND HAZARD i«?NINGS 
1110 PRINT 
1120 FOR J=2Ti06 
1130 FM? K=1T02 

1140 IF S(L(i).K)OL(J) THEN 1228 
1150 IF J=3 OR J=4 THEN 1190 
1160 IF J=5 OR J=6 THEN 1210 
1170 PRINT"! SMELL A W'JMPUS!" 
1180 GOTO 1220 
1130 PRINin FEEL A DRAFT 5" 
1288 0010 1228 

1210 PRiNT"BflTS mm\' 

1220 NEXT K 
1238 NEXT J 

1248 mm*m are in room -iLci) 

1^ R?INT"TIMCLS LEAD TO "jS(LLi),S<Lb2),S<LL3) 

1260 PRINT 

1270 RETURN 

1288 REM CHOOSE mm 

1298 PRINT"SJ«)OT OR IWE? (S-M)"; 

1388 INPUT If 

1319 IF I$="S" THEN 0=1:RET15?N 

1320 IF II="M" THEN 0=2: RETURN 
O30 GOTO 1290 

1340 REM ARROW ROUTIfC 
1350 F=0 
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urn REM PATH OF ARROW 

1278 reiNr'NUffiER CF W)0«S? <l-5)"i 

1280 INPUT J9 

1290 IF J9a OR .J9>5 THEN 1270 

1400 FO? K=1T0J9 

1410 PRINT-ROOM flWR"; 

1420 imJT P(K) 

1420 IF K<C=2 THEN 1478 

1440 IF P(K) O P(K-2) THEN 1470 

1450 PRINT" :?''flRROWS ARE NOT SUPER MAGIC! -BE REALISTIC (RE-ENTER)"; 

1468 PRINT -.GOTO 1418 

1470 \m K 

1480 m SHOOT ARROW 

1490 LL=L<1) 

1500 ¥m K=1T0J9 

1510 Fffl? Kd=lT02 

1520 IF S<LLK1)=P(K) THEN iSEfi 

1520 fCXT Kl 

1540 REM m TUNNEL FOR ARROH 

1550 LL=S<L,RM)(2)) 

1560 GOTO 1690 

1570 m\ K 

1580 PRINT"MISSED" 

1590 LL=L<i) 

1600 REM HOVE WUMPUS 

1610 GOSUB 1760 

1620 REM AMMO CHECK 

1620 A=A-1 

1640 IF A>0 THEN 1668 
1650 F=-l 
1660 REUIRN 

1670 REM SEE IF ARRCW IS AT L<1) OR L(2) 
1680 LL=P(K) 

1690 IF LL O 1(2) THEN 1720 

1700 PRINT" AHA' VOU GOT THE WUMPUS'" 

1710 F=l 

1720 RETURN 

1720 IF LL O L(l) THEN 1579 

1740 PRINT"OUCH ! ! ! THE fiRROW GOT VOU 

1750 IjOTO 1650 

1760 REM MOVE I-IUMPUS ROUTINE 

1778 K=RND(4) 

1780 IP K=4 THEN 1860 

1790 L(2)=S(L(2).K) 

1800 IF L(2)OLL THEN 1826 

1810 FRINT'^wUMPUS GOT VA ! ! ! TURKEV i ! !" 
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1828 F=-l 

1323 RE'URN 

1840 REM mW ROUTINE 

1850 F=0 

I860 PRIHT"OKflV, HHERE TO NOW"i 
1870 IHPUT LL 

1880 IF Ua 0? LD20 TUN 1^ 
1890 FOR K=iT03 
1900 REH CHECK IF LEGfiL mw 
1910 IF S(L<1)..K)=LL im 1970 
1920 NEXT K 

1930 IF 11=L(1) THEN 1978 

1940 PR!NT»flRE VOU FOR REfiL. THfil'S NOT POSSIBLE" : PRINT 

1950 GOTO 1360 

I960 Rm CUCK FOR HflZflRDS 

1970 L(1)=LL 

1980 REH Hlf!P!.iS 

1990 IF H'OIQ) THEN 2068 

2080 PRIHT"TURKiY! VQij BUHPEC- INTO ft WUMPUS ! !" 

2810 REM MOVE HliMPUS 

2020 QOSUB 1770 

2838 IF F=0 T'r£N 2868 

■^40 RETUI^ 

2050 REM PIT 

2060 IF LLOL(i) m LLOL(4) THEN 2118 

2070 PRINT"fl PIT ! ! ! CHINA, l€RE SW COME i ! ! i " 

■2080 F=-l 

2090 RETURN 

■2198 REM BATS 

2110 IF LLOLCS) m LLOL(6) THEN 2158 
2120 PRINT^SUPER-BftTS ! : i GOOD LUCK : !" 
2138 LL=RND(20) 
2148 GOTO 1978 
2158 RETURN 
2160 m 
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SUB HUNT 



Program Listing 

10 REH THE GffE OF SUB HUNT 

20 REM THE SUB HUNT IS PLfiVED 

30 REM ON ft 10 X 10 GRID WITH 

40 REM THE ORIGIN ON THE LEFT 

50 REM TOP CORNER. 

S0 REM THE X ftXIS READS FROM 

70 REM 1 TO 10 GOING LEFT TO 

80 REM RIGHT.. THE V RXIS READS 

90 REM FROM 1 TO 18 GOING 
100 m FROM TOP TO BOTTOM, THEREFORE 
110 REM COORDINATE 10.13 IS THE RIGHT, 
120 REM LOWER CORNER OF THE GRID 
120 REM SUBS ARE CRAFTV, WATCH THEM 
140 REM CAREFULLV 
150 CLS: PRINT 

i€8 PR!NTTAB(20)"S U B H U N T" 

170 PRINT; PRINT" ULCOME TO THE GAME OF SUB HUNT. THE ENEMV MAV BE" 
180 PRINT'lURKING AhM«RE WITHIN THE GRID, TO DTMPLICATE FINDING" 
139 PRINT 'IT AND DESTROVING IT WITH DEPTH CHARGES, THE SUB CAN ALSO" 
200 PRINT"DIVE. DEPTH CHARGES MAV BE DROPPED ANVWHERE ON THE GRID.. " 
210 PRINT"BUT THEV ARE NOT EFFECTIVE UNLESS THEV HAVE MM SET" 
220 PRINT-'FOR THE RIGHT DEPTH. 

230 PRINT" SINCE THE SUB CAN DIVE TO THE SEA BOTTOM, DEPTH CHARGES" 
240 PRINT"t1AV ALSO 3E SET pqr THIS DEPTH. 10 IS THE SEA BOTTOM, " 
250 PRINT"1'1HILE 1 IS THE aiRFACE i3F THE SEA. THE SUB'S POSITION" 
260 PRINT"WILL BE UPDATED AFTER EACH MOVE, AS IT WAHS TO SEE WHAT" 
270 PRINT"VOUR MOVE IS. THE SUB, BEING NUCLEAR POKRED, CAN STAV" 
280 PRINT"AT ANV DEPTH ^R ANV PERIOD OF TIME. " 
290 PRINT ;PRINT"PRESS ENTER TO CONTINUE"; ; INPUT A$ 

300 CIS. PRINT. PRINT- TO CCSTROY THE SUB, YOU MUST DROP THE DEPTH CHARGE" 

310 PRINT"NOT ONLV AT THE RIGHT COORDINATES, BUT IT HUST BE FUSED" 

320 PRINT"FOR THE RIQH^ DEPTH. F 'iOT VOU HAVE WASTED A DEPTH CHARGE. " 

330 PRINT" VOU HAVE ft DISADVANTAGE AND AN fC-VANTAGE OVER THE SUB " 

340 PRINT"THE DISftDVaNTRGE IS VOU^RE LIMITED TO THE NUMBER OF DEPTH" 

350 PRINT"CHARGE5 VOU HAVE (AT LEAST 16). THE ADVANTAGE IS THAT THE" 

360 PRINT"SUB CAN ONLV MOVE ONE SQUARE AT ft TIME, AND ALSO IT CAN* 

370 PRINT "MOVE UP OR DOWN ONE COORDINATE AT ft TIME. " 

380 PRINT ;PRINT"GOOD LUCK, COMMANDER - PRESS ENTER TO BEGIN".; : INPUT A* 

390 RANDOM 

400 REM 

410 REM AMOUNT OF DEPTH CHARGES 
420 Cl=RNDai;-15 
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430 CLS -.PRINT: PRINT" VOLl COMMflNDER hRE RT COORDINflTES Li" 
448 PRINT 

450 m SET UP POSITION FOR SUB 

460 R=RNDa9) .B=PNDa3:^ .D^RNDaS^ 

4?9 REM fl IS THE X AXIS 

480 REM B IS THE V mS 

490 REM D IS THE DEF^H 

500 REM SHIFTS STARTING COORDINR'ES 

510 xi=l 

520 Vi=i 

530 REM GET SHIP S MCVE 
540 PRINT 

558 PRINT-'CDMMftMCCR.. WHERE DO WE SAIL FCR"i 
568 INPU' V 

570 REM TEST THfiT X. V ARE NOT OUT OF BOUNDS 

580 IF X>9 m X<ii BHD V:^9 ^H[- v<;i,i -men m 

530 PRINT iPRIN-'^COMWRK'S' S^^y ^^::-iH THE 3RID'^ GOTO 550 

;{i=X 
610 Vi=^ 
620 PJ^'INT 

£30 PRINT " COMMflNDEP. WHAT . SETTING- FOR- imW-OiARQES" 

640 PRINT"fl SETTING OF 8 RELEASES NO CHARGES"; 

650 INPUT C 

660 IF C=0 THEN 710 

670 IF C>0 AND C<11 THEN 830 

680 PRINT"COMMRNDER. THE SUE IS IN THE WATER. " 

690 PRINT"NEITHER ABOVE THE SURFACE, NOR BELOW THE BOTTOM. " 

700 GOTO 620 

710 PRINT 

720 PRINT-THE SUB IS AT COORDINATES:" 

730 PRINT"X ='Ua "V =";B. ''DEPTH ='UD 

740 REM mU SUB POSITION 

750 fll=RND(3)-2 Bi=RND(3)-2 : Dl=RND(3)-2 

760 A=A+A1:IF A < 1 THEN A=2 

770 IF fl>i0 THEN fl=9 

780 B=B+B1:IF B < 1 THEN B=2 

790 IF B>i0 THEN B=9 

800 D=D+Di:IF Ki THEN D=2 

818 IF D>10 THEN D=9 

820 KiTO 540 

830 IF X=A A^^D V=B m C=D THEN 320 

340 PRINT :PRINT''SORRV.. COMMANDER.. VOU MISSED" 

350 Ci=Ci-l:IF C1>0 THEN 710 

860 PRINT"SuRRV. COMMANDER. NO MORE DEPTH CHARGES. " 

370 PRINT^BETTER LUCK NEXT TIME. PRINT 

880 PRINT"WULD ^OU LIKE TO PLAV AGAIN (VES - NO)"; : INPUT fl$ 



896 IF ft$="VES" THEN 466 

900 PRINT iPRINT-THE COHPUTER KNEW VOU WERE h LBMDUIBBER 
910 END 
920 PRIhfT 

930 PRINT"NELSON WOULD BE PROUD OF VOU" 

949 PRINT-YOU Qui THE SUB ! ! 

950 PRINT" VOU STILL HAVE ".Clr' DEPTH CMfiRGES" -PP-NT 
960 GOTO 880 
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SINK THE BISMARK 



Program Listing 

10 RflNDOM 

20 m ESTftK.ISH DISTANCE RT START OF Gftl€ 

30 D=1800+R^ff>(2000) 

40 REM NUMBER OF SHOTS FOR Ef€MV 

50 S=RND(25)+20 

60 REM VCHJR SHOTS 

70 Sl=RND(25)+20 

m v=0 

90 E=0 

100 CLS : PRINT ; F'RINTTflB(20) "DESTROYER" 
110 PRINTTflB(20) " ; PRINT : PRINT 

120 PRINT"THIS IS THE GAME OF DESTROYER. BOTH YOUR VESSEL AND THfiT" 
120 PRINT"OF THE ENEMY HfiVE HIGH EXPLOSIVE SHELLS. VWR MISSION" 
140 PRINT" IS TO SINK THE ENEflV VESSEL BEFORE IT CRN SINK YOLi. PRINT 
150 PRINT"THE NUMBER OF SHELLS FOR BOTH YOU AND THE ENEMY ARE" 

160 PR^f^"RR^cm but both ships have at least 21. "-.print 

170 PR:INT"WITH EACH TURN. VOU MAY MOVE OR SHOOT. NOTE THA^ SHELLS" 
180 PRINT"ARE LESS EFFECTIVE THE FURTHER APART YiDU ARE "PPINT 
190 INPLIT"PRESS ENTER TO BEGIN"jA$ 
200 CLS 

210 PRINT :PRINT"THE PRESENT DISTANCE IS NOU".;D 

220 PRINT ;PRINT"WHAT IS YOUR COMMAND - MOVE OR SHOOT <^M^ OR "SO"; 

220 INPUT CI: IF C$="M" THEN 260 

240 IF CI="S" THEN 929 

250 PRINT :PRINT"YOU MUST ENTER "M" OR 'S""j :GOTO220 
260 PRINT :PRINT"HObi FAR = TOWARD. = AWRY)"; 
270 INPUTDi 

280 IF SGN(D1)=1 OR ABSCDIXD ^HEN 248 

290 FOR 1=1 TO 5:CLS:F0R 11=1 TO 100:NEXT U: :PRINTCHRI<22): • PRINT :PRINTTFB 

(10) "COLLISION !" 

200 FOR J=l TO 190: NEXT J 
210 NEXT I 

220 CLS : PRINT; PRINT :PRINT"BOTH g^ipq .^^f qqi»^q rtQ^^^ , , ,n 
220 -OR 1=1 TO 580: NEXT I: GOTO 328 
240 D=D+D1 

258 REM GET ENEMY SHOT 
260 FOR 1=1 TO 1088: NEXT I 
270 S=S-1 

280 IF S<0 THEN 788 
i90 REM Q IS TEMPORARY VftRIABLE 
400 Q=ABS(RND(10)-INT<D/400) ) 
110 V=V+Q 

m Q=iNT(y.-'i0) 
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438 ON Q QOTO 499. 526. 546. 576. 598; 618, 536. 669. m 368 
448 GOTO 468 

450 FOR I=i TO 5?8:NEXT I 

468 PRINT ;PRINT"THE ENEMV HAS NOW ONLV"; S; "SHELLS LEFT" 
478 PRINT" VOUR SHIP HAS"; Sir' SHELLS LEFT" 
488 GOTO 218 

498 PRINT :PRINT"mUTION. 'tW-'RE TftKING ON yflTER" 
508 PRINT"NO SERIOUS DftMftGE VET" 
518 GOTO 458 

528 PRINT ;PRINT"THERE ARE fi FEW SMALL FIRES. 

538 PRINT^'BUT 'HE- hRE UNDER CONTROL^' ;GnTr 456 

548 PRINT ;PRINT"Vnn ARE LISTING TO PORT 5 DEGREES. " 

"50 PRINT"«A'FR LEVEL IS S'ILL NOT DANGEROUS. " 

^568 PRINT"CAUTION - FIRES ARE SPREADING'" GO^O 458 

578 PRINT :PRINT"ENGINES ARE 0-ERHEATING AND THE 3ILGE PLtlFS^ 

580 PRINT"ARE ACTING UP -- ^^v-nq % R LO^ 0? #ter HOW'^ GOa: 45t 

'598 PRINT :PRINT"MOS' OF VOUR CREW 13 SERIOuSL- HUR". ' 

iRUF 'ThE -li^SS H-E Af'ROACHING m 9m MAGAZINES. '^GOTO 458 

610 P-TX|T.pRiwT.jup LIFE BOA-3 ARE BEING REAE3ED S^'OLE "I-S ^'iOS"'^ 
-628 PRINT^^OF THE CORRIDORS. BILGE PUMPS ARE NEh?. -AILJkE. ;GGT0 456 

536 PRINT. PRINT"VOUR CREH IS ABflNDONING SHIP. BILGE PU"PS -PT 

648 PRINT"CuHPLETELV GONE. ONE ENGINE HAS BURNED OUT. " 

650 GOTO 450 

668 PRINT :PRIHT"THE ENTIRE SHIP IS BURNING AND IS" 

670 PRINT"LISTING BADLV TO PORT. ":GOTO 458 

688 t^RINT;PRINT"SHE'S GOING UNDER. CAPTRIK. YGU HAV GET" 

690 PRINT" IN ONE OR TWO LAS^ SHOTS. ".GOTO 458 

780 CLS:5^0R 1=1 TO 508:NEyT I ;PRINT;PRINT -HE ENE^V IS RETREATING ; 

718 PRINT"VOU HAVE WON THE BATTLE ' " 

728 PRINT :PRINT"VOU S^ILL HAD". SL "SHELLS LE^I i?t'9.?^ 

738 PRINT :PRINT"SINCE VCU ARE SUCH A GREAT CAPTAIN. THE COMPUTER" 

748 PRINT"WANTS TO KN0i4 IF VOU WANT rn -tqut hGRIN (-ES OR NO)'L 

758 INPUT Lf.IF LI="VES" THEN 38 

768 PRINT :PRINT"OKAV. QUIT WHILE VOU 'RE MMr 

"0 PRINT ;PRINT"THE COMPUTER SHVS. CHR$(34). "GOOD-BVE-L CHR*(34) 

788 PRINT. FRIN^"THE ENEW SAVS. "i CHR*( 34) THANK GOODNESS' CHR$( 34) 

790 END 

300 PRINT: PRINT" VOU^'D BETTER GET INTO THE LIFEBOAT 

818 PRINT" HUPJ?V.. CAPTAIN i IF VOU'RE GOING TO MAKE IT!!" 

820 FOR 1=1 TO 1888: NEXT I 

j30 PRINT :PRINT"VOU- LOST THIS T1HE--D0 VOU WANT" 

348 PRINT"TO TRV AGAIN.. CAPTAIN (VES OR NO)"; 

850 INPUT LI: IF L*="VES" THEN 888 

M PRINT :PRINT"HflD EWUGH. HUH?" 

870 eiD 

8^ PRINT :PRINT"GOOD! THE COMPUTER IS HAPPV TO SEE VOU HAVE" 
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M PRINT"FIGHTIHG SPIRIT^' 
300 FOR 1=1 TO 1500 JCXT I 
910 GOTO 30 

.20 IF Sm THEN Sl=£i-1;G0T0 960 

930 CLS: PRINT :PRINT"SORRV, Cffi'TflIN, VOU HAVE W) MORE SHELLS. " 
940 PRIHT"BETTER RETREAT TO PORT. BETTER LUCK NEXT TIME. " 
.50 GOTO 830 

960 REM Q IS fl TEMPORARV VflRIRBLE 
970 Q=flBS(RND(10)-INT(D/400) ) 
.80 E=E+Q 
990 Q=INT(E/10) 

1000 ON Q GOTO 1070, 1090. 1113, 1140. im 1198. iim. 1230.. 1259, 1346 

CLS: PRINT -.PRINT-THE ENEMV IS TAKING ON WATER. " 
1020 PRINT"THERE SEEMS TO BE SOME SMOKE. " 
1030 GOTO 350 

.a40 CLS; PRINT ;PRINT"CONGRADULATIONS, CflPTfllN. '-'OU HAVE SUNK THE" 
1050 PRINT"ENEMV SHIP ! ! " 
1060 GOTO 720 

-J70 CLS:PRINT"THE ENEMV SHIP IS LOSING GROUND, " 

1080 PRINT"ALREADV THERE ARE SMALL FIRES. ":QOTO 350 

1090 CLS; PRINT; PRINT-LOOKS LIKE SOME OF THE ENEMY'S CREW" 

.X00 PRINT" IS TAKING TO THE LIFE BOATS. CAPTAIN. " .GOTO 350 

1110 CLS: PRINT :PRINT"CAPTAIN. THE RADIO ROOM HAS PICKED UP A TRANSMISSION' 

1128 PRINT-FROH THE ENEMV--THEV ARE TAKING ON WATER. " 

_*30 GOTO 350 

1140 CLS:PRINT:PRINT"THE FIRES ON THE ENEMV SHIP SEEM TO BE" 
1150 PRINT"SPREffl>ING, CAPTAIN. "iGOTO 350 

^.m CLS: PRINT :PRINT"THE ENEMV SHIP IS STARTING TO LIST. CAPTAIN. " 

1170 PRINT»HER BILGES MUST BE C»JT!":GOTO 350 

1180 aS:PRINT:PRINT"THE ENEMV SHIP IS LISTING BADLV--SHE CAN'T" 

PRINT"LftST MUCH LONGER. KEEP IT W, CAPTAIN. '':GOTO 350 
1200 CLS:PRINT:PRINT"THE ENEMV'S ENGMS MUST BE OUT. CAPTAIN. " 
.1210 PRINT-SHE'S NOT MflNUEVERING, BUT SHE'S STILL FIRING AT US. » 
w20 GOTO 358 

1230 CLS -.PRINT: PRINT" IT LOOKS LIKE THE BCMV IS fffiflM)0NIW3 SHIP. « 
1240 PRINT-POUR IT ON, CAPTAIN. " -.GOTO 358 
^40 CLS:PRINT:PRINT"SHE'S GOIWj mm> CAPTAIN. I THM TWE" 
1268 PRINT"ENEMV tfS W IT THIS TIME. " .GOTO 358 



193 



MOUSE HUNT 
Program Listing 

m REM CHFlNQE ft MOUSE 
158 CIS: PRINT: PRINT 

200 PRINT"THIS PROGRfiH flLCWS VOU TO GO ON HOUSE HUNT" 
2^ PRINT"FOR fi VERy dNOXIOUS MOUSE. " 
400 PRINT"THE MOJSE TRIES TO mm VOU BV TOPPING" 
500 PRINT'-RflfCmV. " 

600 PRINT"VOU mi CATCH IT BV BEING WHERE THE MOUSE LANDS. " 
700 PRINT"'VOU CAN CHANGE DIRECTION, TOO. " 
800 PRINT: RANDOM 
900 T=RND(100)+i00 

1100 PRINT"VOU HRVE TO GET WITHIN"; T; "FEET OF THE MOUSE TO ^KETCH^ IT. " 
1200 T=T*T 

O00 REM SET UP THE LOCATIONS ftND SPEEDS 

1400 REM TO "KETCH" THE MOUSE 

1500 REM VOU ARE THE FOK 

1686 Ri=RND(19)*19+50 

1700 R2=<INT(RND(0)*2+. 5>+i)*Rl 

1800 K1=RND(9) 

1980 K2=RND(0) 

2000 IF Kl>. 5 THEN 2380 

2100 Kl=-1 

2200 GOTO 2400 

2200 Kl=l 

2400 IF K2>. 5 THEN 2708 
2508 K2=l 
2600 GOTO 2800 
2700 K2=-i 

2808 81=RND(400)+100 
2900 Q1=Q1*K1 
3800 Q2=RND(480)+i98 
3100 82=Q2*K2 

3200 IF 02=0 OR Qi=0 THEN 1808 
3300 a3=0:Q4=0 

3400 PRINT :INPUT"PRESS ENTER TO BEGIN"; A$ 

3500 CLS: PRINT :PRINT"HOP SIZES". "DA MOUSE"; RL "V0USE";R2 

3690 PRINT 

3700 PRINT"THE COMPUTER SftVS: I HISH VOU GREAT FORTUNE IN VOUR ENDEAVOR" 
3800 PRINT"FROM THE MOUSE: DROP DEAD - TURKEV" 
3900 PRINT"FROM THE COMPUTER: KEEP IT CLEAN, BOVS" 
4800 PRINT 

4100 Pl=3. 14159254/130 
4208 0=1 

4300 Z1=(Q3-Q1)*(Q3-Q1)+(Q4-Q2)+(Q4-Q2) 
4400 REM 

4500 REM PRINT A CVCLE 
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4600 REM 
4700 PRINT 

4800 PRINT"TRV »",0 

49M PRINT"THE MOIM IS"; SQRCZDi "FEET fll-lftV" 
5000 PRINT"ftT LOCATION "jQl;" BV ";Q2 
5100 D1=RND(359) 
5280 IF 2i<=T THEM 540.0 

5200 PRIMT"flND TOOK OFF AT fiM ftNGLE OF ";D1; "DEGREES" 

5400 PRINT"VOy ARE AT LOCATION QK; " BV Q4 

5600 IF Z1>2*T THEN 6200 

5700 IF 21>T THEN 6400 

5750 iXS: PRINT; PRINT 

5800 PRINT"SPLAT ! ! !" 

5900 PRINT'"mi GOT IT ! • i " 

6000 PRINT"BOV, WHAT A MESS - SQUASHED MOUSE EVERVWHERE" 
6100 GOTO S800 

6200 PRINT"OWWW THAT HURTS - YOU'RE NOT £wEn CLOSE" 
6200 GOTO 65«0 

6400 PRINT"MISSED AGAIN - BUT PPfTTV CLOSE" 
6500 PRINT"WHAT DIRECTION L^i mi WISH TO JUMP"; 
6600 INPUT D2 

6tS9 W D2>=S m 5K=360 THEN 7i80 

6800 PRINT"BETWEB-i O m 26© DEGREES ONLY" 

6900 GOTO 6500 

7000 85=R1*C0S< Dl*Pi ) /'ISO 

7100 Q6=R1*SIN<D1*P1)/'100 

7200 Q7=R2*COS(D>*Pi)/100 

7200 Q8=R2*SIN<D2*P1)/100 

7460 C1=Z1 

7500 C2=Z1 

7600 FOR 1=1 TO 100 

7700 Q1=Q1+Q5 

7800 Q2=Q2+Q6 

7900 S2=S2+Q7 

8000 S4=Q4+Q8 

8100 C2=(Qi-Gl)*(Q3-91)+<Q4-Q2)*(Q4-Q2) 
8200 IF C2>C1 THEN 8460 
8200 C1=C2 
8400 NEKT 

8500 IF Ci<=T THEN 5750 
8600 K2=K2+1 
8700 GOTO 4200 

8800 PRINT"VOU TOOK '.Ki; "TRIES TO 'KETCHCUP)" THE MOUSE" 

8900 PRINT"WANT TO TRV AGAIN'' (VES/NO^"^ 

9000 INPUT m 

9180 IF AI="VES" THEN 900 

9200 IF AIO"N0" THEN 3908 

9200 END 
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CAPTURE THE ALIEN 



Program Listing 

10 REM LETS CfiPTURE AN ENEMV VESSEL 
20 REM INSTEAD OF DESTROVING HIM 
30 RANDOM :CLS 
40 DIM Q(10,10) 

50 PRINT :PRINT"ENTER YOUR NAME FOR THE LOG, SIR".: -.I^JPUTAI 
60 S=25 

70 PRINT. PRINT"DO VOU WANT INSTRUCTIONS. COMMANDER ";A$; ;INPUTC$ 
30 IF ClO'-t-ES" THEN 200 

90 CLS: PRINT :PRINT"VOU MISSION, COMMANDER ";A$;", IS TO CAPTURE AN" 
100 PRINT"BCMV BATTLE CRUISER. TO MUST NOT DESTROV THE EJEMV -" 
110 PRINT"VOU MUST TAKE HIM ALIVE. TO EFFECT CAPTURE, VOU MUST" 
120 PRINT"DESTROV ALL OF THE REGIONS SURROUNDING THE ENEMV VESSEL. " 
120 PRINT"THE OfTORD COMPUTER MIU KEEP VOU UP-TO-DATE ON THE" 
140 PRINT"ENEMV'S LAST POSITION. " 

150 PRINT :PRINT»THESE IS ALSO A PROTECTED AREA USING THE AREAS WHERE" 
160 PRINT"X = OR V = 0.. SO THAT THE ALIEN HAS A CHANCE. IF VOU" 
170 PRINTTIRE INTO THIS REGION, IT IS THE SAME AS FIRING INTO A" 
180 PRINT"PREVIOUSLV DESTROYED AREA. PRINT :PRINT"QOOD LUCK, COMMANDER. 

190 PRINT :INPUT"PRESS ENTER TO BEGIN"jB$ 

200 CLS: PRINT :PRINT"COMMA»ER ";A*i".. VOU HAVE 25 SHOTS. " 

210 FOR X=0TO10 

220 FOR V=0TO10 

230 Q(V, X)=0:Q(0, X)=-1:Q(V, 0)=-l 
240 Q<10,X)=-1:Q<V,10)=-1 
250 NEXT V, X 

260 X=RND(10)-1;V=RND(10)-1 

270 PRINT ;PRINT"ENEMV 'S LAST KNOWN POSITION ~ SECTOR"] Xj ", "i V 
280 IF S<=0THEN740 
2^ C=X 

300 A=RND(3)-2:X=X+A:IF X<0 OR X>9 im X=C:GOT0 290 
310 D=V 

320 A=RND<3)-2;V=V+A;IF V<0 OR V>9 THEN V=D:GOTO 310 

330 IF Q<V,X)=-1 THEN X=C:V=D:QOTO290 

340 IF X=C m D=V THEN 290 

350 PRINT: PRINT" 1 2 3 4 5 6 7 8 9" 

360 FOR A=0TO9 

370 PRINTfl; 

380 m B=0TO9 

390 IF 8(A,B>=0 THEN PRINT" *"i ELSE PRINT" ", 
400 NEXT B 

410 IF A=4 THEN PRINTTAB(40)"LAST KNOWN POSITION"; 
420 IF A=5 THEN PRINTTAB(42)"SECT0R";C; ", "jD; 
430 PRINT 
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440 NEXT fl 

450 fl=RND(10):IF fl>4 THEN 528 
460 PRINT"CnmflNDER ";flt; YOU HRVE BEEN flTTflCKED" 
470 PRINT-ENERGV USED TO REPLENISH SHIELDS. " 
480 S=S-1 

490 IF S<:=0 THEN 740 

508 PRINT"ONLV"; Si "SHOTS REMfilNING" 

510 GOTO 580 

520 fi=RND( 10) : IF ft<3 THEN 580 
520 fl=RND(10)-l;B=RND(10'-l 
540 IF fl=X AND B=V THEN 538 
550 IF Q<B.. fi)=-l THEN 528 
560 Q(B.R)=-1 

570 PRINT"NOVfi IS SECTOR"; ft; "iB 

580 PRINT ;PRINT"ENTER VOU PHASER SHOT (X,V)"; 

590 INPUT fl..B 

600 IF fl>9 OR B:>9 THEN 580 
610 S=S-1 

620 IF fl=X AND B=V THEN 770 
620 IF Q(B,A)=-1 THEN 820 
640 Q(B;fl)=-l 
650 FOR ft=X-l TO X+1 
660 m B=V-1 TO V+1 
670 IF A=X AND B=V THEN 698 
680 IF Q(B.A)0-1 THEN 278 
690 NEXT B.fl 

700 PRINT"GOOD SHOW.. COMMANDER "jR$.:" -- 

710 PRINT'-mi HAVE CAPTURED THE ALIEN ENEMV AND VOU STILL" 

726 PRINT"HAVE".;S3 "SHOTS REMAINING. " 

728 END 

740 PRINT"COMMRN[€R ".;A$ 

750 PRINT"VOU HAVE m MORE E^ERGV FOR PHASERS. " 

760 GOTO 380 

770 PRINT"COM«ANDER ";A$ 

m PR1NT"DID m EVER BLOW IT THIS TIME" 

790 PRINT"VOU ZAPPED THE ALIEN !!!!'" 

808 PRINT"WELL. BETTER LUCK NEXT TIME. " 

810 END 

329 PRINT "COMMANDER ";B$ 

820 PRINT"QOOD SHOT' VOU FIRED AT A PREVIOUSLV DESTROYED AREA: 
840 PRINT"TURKEV!" 
850 GOTO 270 



STAR WARP 



Program Listing 

18 REH SPflCE 

28 mm 

38 CIS 

48 DIM N$<5),C»<2i).Z*(21),L*(8),R*<4),K*(3),T*<5) 
58 F« I=lT08:!€f»L$(I):feXT 

68 DftTft GMM 7,(lPm CENTflRL SIRIUS liKTEOlBE 7,31 3,fWTflRES 9, ftlSMm IWROCMl 
78 F0RI=lT05;l€fWtt;(I);ICXT 

m MTfl ENTEra«IE,EXC«.IKR..DffIfiNT,E!€TER.ENTEW«M 

98 FQRI=lT02;REflDK$(I):ICXT 
188 MTfl KLINKJdRtHiWlSlIEH 
lie F(SI=lT04:ffi»R*<I):(eT 
120 MTR CmU,QW<,CLia)IP,XOTOP 
138 F(KI=lT05:i€ffl)T$(I):N&rr 
148 DfiTfi KLEBCRVmwaiP.JOJUfnca. 
158 FORI=lT021:REH)0$<I);(ea 

168 DflTfl mm m Bmm (f the bow 
178 DflTfl Fii€ fmm mm. bmk 

188 DflTfl FIRE REW? PmSER 

199 MTfl FIRE FCMTO PHOTON TORPH«S 

208 DflTfl FII€ 9m ?mm TORPE-ilS 

218 DflTfl UMCH fWTI-WTTER Pmt 

228 DflTfl COe UP ON TIC EfOV VESSEL 

238 MTfl RETlSflT FRM TVE ENEHV 

248 DflTfl WROKH QEfN AT WKP SPEED 

258 DflTfl RETREAT AT TOP WIW SPEED 

268 DflTfl "USE mim SHIELD KPLOVtCHT, fR. SULU" 

278 DflTfl 'im US ABfflJT m DEGREES, m. SULU" 

288 DflTfl "MR. SPOX 1«T m m mmS fl HIT?" 

2% DATA 'm. SPOCho WHAT (FTIONS flIS flWILflH.E?" 

3» DflTfl "MR. SPOCK, RtL DMGE REPORT" 

318 DflTfl "LIEUTEWWT, OTN fl VOICE CHfMCL TO STAR FLEET" 

329 DflTfl "LET'S WflIT, WHAT HILL THE ENEW DO NEXT?" 

338 DATA ACTIVATE COMPi.lTER DESTRIXT SEfflJEfCE 

348 DATA "LIEUTEWWT, OTN fl VOICE CWWEL TO THE ENEMV. » 

m DATA "im 90 DEGREES TO mi, MR. CHEKOV" 

368 MTA "TURN 98 CtOREES TO STAISOARD, «. OCKOV" 

378 Fi3R!=lT021 : RE»Z$< D : tCXT 

388 DflTfl RANGE. PHflSEF., PHASER.. TORPF,TORPR,PRCBE, CLOSE, ftl«V 
398 DATA PURSE, ESCAPE, SHIELDS, ROTATE, CHflNCES, COHMflNDS 
4* DflTA DAMAGE, BLLFF, WAIT, SUICIDE, SURRENDER, l¥EER,R'€ER 
418 PRINT ;S$=N»<RND(5)) 
428 PRINT"SPAC£, THE FINAL FRONTIER. ..." 

438 PRINT'THIS IS THE VOVflQE OF THE STARSHIP »j Si; \ IT'S FIVE" 
448 PRINT"VE(« MISSIM, TO EXPLORE S'^^ftNGE NBl WORLDS, TO SEEK" 
459 PRINT 'CLT m .'JZ im MEW CIVILIZATIONS, TO BOLDLY GO 1*ERE" 
4S8 PRIKT"HO fW m GONE BEFORE. " 
479 PRINT : PRINT ;PRINT . FORMTOiOOO ;NExT 

488 PRlMT'VEOMflN . TfiB(18> "SIR, EN'EP VOUR '.WE FOR THE LOG"; : INPUT « 
498 PRINT 

588 PR!HT"gW(.';TflBae)"VOU ARE IN COMMAND OF THE "iSI;", CAPTAIN ",C$, ". ° 
518 PRINTTAB(ie)"50 VOIJ WISH fl LIST OF POSSIBLE COWRNDS, SIR''.; mr Rf 
528 IF fl$="YES'Ti^ij GOSUB 3870.G0SUB32S8 

538 PRINT;E$=K$(RNDa));F*=R$«ND<4)):U*=TI(RND':5)vr)$=LffRND(8)> 5) 
REM 

558 PRINTC$i ":".;TflB<18)"CAPTflIN'S LOG, S'RRDPTE". INT(RND<i8e88))/18+2909 

568 PRINTTflB^18)''WE ARE PRESEHTLV ON COURSE FOR ";D$ 

5^3 ON RND(5;G0T0588, i88;52e,i39,648 

588 PRINTTAE(18)"T0 RESCUE HINERS UMSR ATTACK BV ",£$ 

590 ?RI?rf<«<18)"8SmE CRUISERS. ":G0T0658 

o88 PRINTTflB(18)"WITH A CARGO OF DiLrwiUM CR'-'STALS TO POKER" 

iia PRINTTfl6ae)"THE COLONISTS STATION. ".QOTO650 

528 P9IRTT»(:9>-'T0 StflRCH FOR NEW HIHERPLS FOR THE FEDERATION " G0T0659 
'.yi ?RlNTTflB(18)"WITH THE CURE FOR MflRTIflN FLU. -'.GOTOese 
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648 F1?!NTTfiB<10)"FOR OB^iWIfflj OF R BUCK HOLE " 

650 ■20SUB343B.PRIHT»SULU:MflB(ie>"SIR.. I'M PICKING UP fi VESSa m fiN finftCK" 
see PRINTTfiB(18)" VECTOR WITH m "iS$i". " 

S79 GOSUB2490;PRINT"SPOCK:"iTf!B(ie)"SH!f'5 COHPUTER INDICATES THRT IT IS THE" 

6« PRINTTftB<10)E$J " VESSEL, *iHi': CflPTHlN, " 

690 PRIHnftB(ia)"lM!ER COWflHD OF CfiPTfilN " U$, ". " 

7m GOSLB3490:PRIHTC$i":",TflB(10)"SOUND RED ftLERT, LIEUTENANT UHURfl. * ' 

718 G0SLK498-.PRINT"UH!JRfi; m> SIR. " 

720 !FRND(2>=lTHENX$="SUL':"tLSEK$="CHEK0V" 

730 H1=0:H2=8:G=0;X=0 S=0 

740 P=0 

m muim Z(i)=i88 ;S( i )=i8e ; mi 

760 R=lffl8-R»(1M) 
778 B=RW)(368)-188 
780 B1=R»(368)-180 
798 GOTO820 
800 IF K7THEN840 
818 IF I>12T>CN848 
320 QOaB3200 

838 mMsm 

840 PRIHT;PRINTX$i":"iTRB(10)"WiflT ARE VOUR mm, SIR", :INPUT«$ 
858 PRINT: 1=0 

860 F0RJ=lTO21;IFi$(J)=M$T}CNI=J 
370 !CXT 

880 IF iaORI>21THENPRINT;«":";TflB(ie)"miBLE HEWING WU, SIR" ;QOTO840 
898 PRINTC$;";"iTftB';i8)0$(I) 

908 0NIG0T08M, 918, 928, 930, 948, m, m, 960, 978, 978, 1508, 968, 1558, 16M, 1618, 988, 2098, 1990, 2840, 3438, 3458 

910 IFHl<rrHEN1060ELSEPRINT"CHEKOV; FElWfM) PHflSERS ARE C'EflD, SIR. " ;GOTO20% 

928 IFHl-:6THEN1360aSEPRINT"CHEKOV; REflO ?mm ARE KX), SIR. " :H!T028M 

330 IFHl<3THEI)13mSEPRiHT"CHEK0V: FORWflRO PHOTON TORfTOS m. DEflD, SIR. ":«JTO2098 

940 !FH1<;8T1€N1418ELSEPRINT"C»;OT; REAR PHOTON TORPECOES ARE !>Ef», SIR. " :8OTO2038 

950 IFHiaiTHEN1420ELSEPRIHT"C«KOV; PROK LMWOCR IS DEAD, SIR ":QOTO2030 

960 IFHia4THEN1450ELSEPRINT"SllU: IMPULSE ENGINES ARE DEAD, SIR. " ;GOTO2098 

970 IFHl<llTHENi458ELSEPRINT"SLiLU: MARP DRIVE IS OUT, SIR. " :(fflTO2e90 

980 IFH2<liTHEN99«LSEPRINT"SP0CK: THE ";E*i" HAS NO ENGINES, SIR. ":G0T02898 

390 IFG=eTHENi730 

mB PRINT-SPOCK; I M NOT THINK THAT THE ";£ii "S HILL BE" 
1010 PRINTTAB(10)"FOCtE0 SV THAT MANEUVER AGAIN, SIR. " 
1020 QOTO2098 
1030 IFABS(B)<90THEN1050 

1040 PRINT"CHEKOV: mm PHASER BmK, CAPTAIN. ":GOTO2090 

1850 PRINT"C.HB:0V; phASERS FIRING, SIR. " 

106.0 R9=R:B9=B:QOSIS3390 

1079 iFRNt)(0)<F8THENi09e 

1880 PRINT"CHEK0¥: MISSED HI«, SIR, " : GOTO2090 

im IFRND(0)<. 2THEN1220 

1100 V=. 5 

1110 K=l 

1120 F0RK1=2T04: IFS<K:)>=S(K1)THEN1140 
1138 K=K1 
1148 fCXT 

1158 IFS(K»50THEN1170 
1160 K=RND(4) 
1170 H2=H2+V 

1180 °RiNT»sPOCK; ft HIT ON SHIELD t"iK; ". " 

1138 IFS(K)=0THEN1230 

1288 S<K)=S(;K)-30*V*(RH)(0)+ 1) 

1210 IFS(K)>0THEN2098ELSEPRINTTAB(ie) "WHICH IS NOW GOfC, SIR " ;S<K)=0;GOTO2030 
1228 V=1:PRINT"CHEK0V: DIRECT HIT, SIR ":QOTO1110 
1230 PRINT :PRINT"Ctt!<OV: GOT HIM SIR. " 
1248 IF!M)(8)>. 5THEN3020 



1250 QOSIJB3490;PRINT"SPOCK 
1260 GOSUB3490:PRINTC1 
1270 QOSyB3490:PRlNT"UHURfi 
1280 Q0S1JB34M;PRINTC*. 



E ", Efc " VESSEL REMAINS INTACT, CAPTAIN. " 
iTAB(18)»0PEN fl HAILING FP£aJENCi', LIEUTENANT. " 

HAILING FREMHCV OPEN, SIR » 
iTtffi<10)"THIS IS CW'TAIH "iC*" tff TtC STARSHIP" 
1290 PRINTTAB(10)S$j ". PREPARE TO BEAM O'^iER SLWIVORS. » 
1308 IF R»<0)>. 5rriENi358 

1310 GOgj3498:PRINTU$i";"jTf«(10)"I AM AFRAID TH,RT WILL BE IMPOSSIBLE," 
1320 PRINTTRBCIB) "CAPTAIN, SINCE I JUST ACTIVATED OL!R AUTO-DESTRUCT. " 
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1338 F0RI=13T01STEP-1 : GOSIE3500 ; PRINTTfB<18), I : NEXT 
1340 PRINT: 60X03920 

1350 G0SL1349e.PRINTIJ*i":";TfiB(18)"TO' WELL C*TfiIN, OLl SHIELDS HflVE BEEN UMm. "■.(»TO3220 
1360 IFfBSCB)O0T!€Ni94eB.SEGOTO1050 
1370 IF flBS<B)>=98THEN1840 
1388 R9=R:B9=B:GOaB3350 

1398 IF RND(8)>F5THEN1088 

1480 IF Rtt>(0)C 25THEN1108ELSEGOTO1220 

1413 IF«S(B'-30T!JEHi0'i3ELSEGOTO1380 

1428 IFX<10THErii439ELSEPRWT'CHEKO'7'; WE Hm NO fWRE PROBES, SIR " :yOTO210e 

1438 !(=X+1 ; IFRND(i)C 07135T1CN144«LSEGOSIB34M : PR INT"SPOCK ; PROBE LOST, CflPTftIR " : K3TO20M 

1448 GOSLB3490,PRINT"SPra<; T1€ PROBE IS mm IN (W THE ";F*; », SIR " ;GOTO3020 

1458 ONI-6GOTO1460, 1478, 1488, 1499, 1588, 1538 

1468 QOSlJB2?90;R=flBS(R-V) ;GOTO209e 

1470 QOSLlB282e:R=PSi.-R-v:.;lFR:>5a80THEN2780ELSEGOTO2090 

1488 30Sl!E2833 : R=flBS (R-2*V) : 80102998 

1490 Q0Sie2849-.R=PBS!R+2*¥) ; IFR>5009THEN2700ELSEGOTO2990 

1580 S=l:F0RJ=2T04:IFZ(J)<=Z<S)THEN15iaELSES=J 

1510 HKT 

1520 8OSl!B3500;PRINT:PRINT"SLlU:»;Tf!B(10)"SHIEL!) #"iS;"IS IN POSITION, SIR ";G-OTO840 
1538 B=B+180 

15'i0 IF3<=180Tl€N2090ELSEB=B-36e ; G0T02998 

1550 Q0SL1B3498;PRINT"SP0CK; ST RflNQE'V-R; "I WOLID ESTIMATE THE PROBflBILIPi"' 
1560 R3=R;B9=B:GOSUBi390 F8=F8*100 

1570 PsiNT'^flBi'i:' 'f H W3EP HIT W =5 "fiND "''JE oPOEflBILITi"' 
1580 R9=R ' B9=B - 6CSIIB3350 ■ R=F9*139 

1:90 ''JF"-'£'i\! C!^ a F-^CON TCPOEtCi HF ' ' :CTO840 

1600 aOSUB3070 GO'QS-? 

It J jOSLlB:500 =RI',T FFIT'SFfCl. [flilfiGE: flEE fl." " PFINT 

iili "ITTf^B 12' SH'EL; 4 "-i ZZ'll TflE Zz<?t 

1610 T=1T04 "INTT^E 1= ' ;5,: -, -ae 7: NE " 

1:43 ='PIN' PSIN"ftB' IB'-S*; " L)«t*fiGE 

It'f: IF-tl 5 3'-£'il:"i3EL5EF=:'r MI'IE 77' m 

1660 PRINT. PRINnfiB(20) "REAR ^HRSERS OHT" 

1670 iFHi'-^hEijr:oE-SE'=t:-~piE 13 ~:ci-=:> ■^-nse^s out 

1::0 FUl F»iE'ir:."€LSE=FI»iT"'ft& :« ^EOF 'W'JH tippeDOES ' 
It"* l^K ?"'-ENl~0E..-E«Br'ABC0'"FOWD PHOTQN TORPEDOES C'EfiC 
rOO '^1 iri-E'irrnEL.-EPC'iTTPB I^.'PCCEE LfiUNCHEF :€ST=;''E: ' 
1710 PR!NTTPBf20)"Wf»RP DRIVE LOST" 

r:9 '=ni iJTHE>ir;0ELSE=i;'»)T'pp,;,9 r-^iSE '^-lu^ .ust' 

T'to FH2 5 5"'HE'J1750EL3E":NT"(1ONE PRINT GO^Oi^.i 
1750 PRINT :PRINTTflB(28) "ALL PHfiSERS DEAD" 

rto h: -ithenfcint go'^":«l:eppinttaP' j^'sl. toffee'C'ES depd' 

F-^ .rHENFCil.T "/■:E4f(ELSEPt!'ITTAe':0i"WPFP DRI E LOST" 
."-0 l-t''-E'fP"' '.r -"£^rEPP!'F'^PB'Z0i"IMFiLrE E'tGI'lES ".f"; PRINT :GO'^O840 
r90 peiNT'^fiB' lflV iiiE CODE 2 ' 

1888 G0SLB34»:PRINT"LIHUW; MT, SIR, THE "iEli'S BROKE CM. I VESTERm SIR. " 
1810 GOSLiB3490:PRINTCfe';".;TflB(10)"COOE 2, LIEUTENANT, IMHEDIATELV!" 
1828 (MSUB3498:PRINT"llHllRA A'VE. AVE, SIR GO «HEflD- SP " 
1830 GOae3i90:PRINTC$.;";".:TAB(10)"THIS IS CAPTAIN ",C$i" OF THE STMSHIP "iS*;". ' 
1848 GOSL83500:PRINnfffi.:i0)"WE WL IM)ER AHACK m. ";E$i" WIP "iFJ 
1850 003183500 PRINTTAB(18) "AND, IN ORDER TO °RE's€NT THIS SHIP FPOH FALLING" 
1360 3OSL'B3500-.PRINTTAB(10)"INTO EfCW HANDS, WE ARE ACTIVATING THE CORBC«ITE« 
1878 GffiliB3500;PRINTTaB':i0)'DEVICE SINCE THIS WILL RESULT IN THE CtmETE" 
IF? ::?.E;50n "-'r^---'t y siA-JLh-IGN of AL. matter WITHIN A RfWGE 5*8" 
1890 GOSI'B:::500 =P->r'PB Ij "EGAffEP^S ALL 'ESSPL3 SHOULD SE WARNED TO S'AV" 
1900 GraiB:500 PRI'iTTPE 10 J "CLEAR iOP THIS «PEP THE '£ " 4;. 
1910 PRINTT=iB(10j'SrtHp VEPPS " 
1928 G=1:IFRND(0)> 2'HEN1963 

j'iSi.5;i98 Fi^.NT SjU- the E{ :S HO' IMG AWP- at WA^p 10, SIR " 
1940 'jO.-iB:4M r-'.-C -Pjr -»1 ■'ar-r apFEAFS TO 4P"E cEEN E^'EC'IVE, SIR. " 
19:0 «itjTTflB.10)"'^E E$ S H.A' E EES', fEF.LSED 30":::;^ 

l,^y aC-Slol-St '■',.''7 NT H'tDIPTH >«'iGE F-l E? STOLRSE 5; SFEETl SIR. ' 

--70 ;:sLt:-90 pp?" sfcci r would see'* ^>^r ha'.e a: iiu hurrns' 
If-:. ?"'-"E -.- IT fl-E' :.f bl'jfp ff'^i gd-'iijw 

1\'0 GC'SIB34W "p?iT ""F "^F ■'=!!" JlS"E--l =::'i""'BP 9 it GOSISDjOO lEX" 

jm :p >^'3E,:3 "-E " S$ '"AS SEEN lESTPOVE! ' 

-"-I i=ft :csiE;5ee "iN^AE 10 sfit,-,!,: :f c,B_rr--,, - me^hme-rs. " 

:-C0 :-" ;^hPiCP:'"sP ^-J ' ETE- DES"p>ED E_-E=='-"AE'i.3 Et, " VESSEu remains INTACT, " 
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2838 S0T03229 

2040 IFE»=''mi«N'7HE»iPRINT''UHltR: » ANSWER FRC* m ';F$i", SIR. 
2958 S0SLK438.FR!N!C*;'':''iTflB(18''TH!3 Is CflPTfllH "jCtj" OF THE STflRSHP ".iSl'." 
me PR!NTTftB<ie)"tnLL m mm our UNCONBITim SLWEMtR'" 
2978 (mB349e;PRimi*;",";Tae''.19:'"CiH SEHSL- OF THE EWIRE, I ACCEPT 'tWJR" 

2088 PR!NTTflBfl0)"SLlRRE»ER, PREPARE FOR IWDI*" BOARDING. "-G0Tn3228 
2090 REH Efeifi' H0'€ 
a00 IFH2C9THEN2290 
2110 IFH2<llTHEN213e 
2120 1FH2;>13. 9THEN265e 
2138 IFHl>ie. 9TKEN278@ 
2148 IFH1>8. 9THEN2178 
2158 IFR<R»ID<28e:'THEM274e 

a69 Q0SIB2799:R=ffiS(R*'-') : lFR:^008TWEH2?'«L?Ea- 0829 
2178 IFRM)(8>C 5TfCM216e 

2188 GOSUS2820-.R=l«S(R-¥) ;IFR>50e8THEN27mSEGOTOS20 

2138 !FHiC?THE>G250 

22» !FH1'3THEN2150 

2210 IFH018. 9''HEN2'00 

2220 IFRHt)(8)<. 5TWEN2178 

2239 IFRW.u;0)<. 5''HEN2250 

2248 Q0SUK838:R=flBS«+2*V) ; I'^R>5e80THE'-i2700ELSEGCi'O328 

2258 GOSUB28i9;R=fl3S(5.-2*-:va"D8d0 

2260 IFR>780™E*)225e 

2279 !FR>200THEN2240 

22S8 GOTO2150 

2290 IFH2<6THEN23?e 

2380 IFWl<?T}eN2370 

O10 IFR<3»™EH2250 

2328 IFR>7aTt€M2240 

2338 IFH1>7. 9THHN23S8 

2348 IFIHT<ABS<Bl/'90))>Itf(«S(B/90:)THEN2250 
2350 IFABS(Bl-90»=flBS(B-99:)-20THEN2850 
2368 !F»©(0)<. 5THEN225eELSGOTO2240 

2379 R'9=R . B9=Bi : GOSIJE3390 : PJ=R . S9=B1 : G0SiJB3359 

2380 IFF8>F9THBG25«LSEQOTn2310 
2398 IFHK7THEN2450 

24M !FR>1MT>BG420 

2410 IFRNDi ex. 5THEN2180ELSEQOTO2250 

2428 IFR>=400TJCN2440 

2430 FABS'31:";39MN2ft8eELSEQOTO2180 

2448 IFR>7WTF€N22'»0ELSEGOTO2340 

2450 IFR>700THEN2240 

2468 R9=R ; B9=B1 : GOSliB3350 ; R9=R . B9=B1 ; Q0SIB33* 
2470 IFF9>F37HEN2340 
2480 !FH1>€. 9THEN25W 

Zm IFINT<i«S<By»))>!NT(fBS<B/M))Tl€N2258 

2588 IFflK(Bl-9e)>=f«S(B-»>-aHB^mSE!fflT(E258 
2510 IFHl<6T«e648 

2^ Tmi-V;IFflBS<T-SKlTmi254e 

2538 IFfiBS(Hl-6. ^)>. 3THB)»iaLS'RINT"Cffl(0V: m» fWSFS DEflD, SIR. " :G0T02648 

2548 iFffis<T-7)c immm 

2m IFf«S<Hl-7. 25)>. 3T«C^B.^IHT"C}€Kffi': FMWKD mSESS mb, SIR " :(»T02648 
SB IF(ffiS(T-8)C 1T!€H^^ 

2578 IFABS<Hl-8. 25)>. 3T«N25mOT?INT"CI€K0V; !5f« mm TMSTOES C€f», SIR. " :(aT02648 

2589 IFABS<T-9)<. 1THEN2600 

2598 IFieS(Hl-9. 25)>. 3TJCK260«-SEF«INT"Cffi(OV: FORWARD mm TORPEMS mS>, SIR. " MlUim 
2600 IFftBS(T-il)C 1THEN2620 

2610 IFfiBS(Hl-li 25)>. 2THE.H2623ELaPRINTW.0V: LfMCffR M) WSS> Wm GMfc SIR. " ;(fflTt)2648 

2628 IFfiBSa-i4)<. lTht»<264B 

2630 IFABS(H1-14. 25)>. 3TWEN2640EISEPRIHT"CHEKOV; IMPl^S ENGHCS im, SIR. " 
2640 SETira 
2650 IFP>0TH0^ 

2668 P=l Q0SL874« PRINT"TOK-. THE ";£*;" SHIP IS COfPLETELV CRIPPLED, SIR. " 

'670 PRINn»(19)"i4ILL ¥01! anOW THEM TO SlMEWe": ;lNPlJTfiJ;IFA$="i€S"THEH1260 

26£;9 PRINT"SPOC.K: DO VOJ WfT TO KSTROV TV€ ';F$i", CAPTflH-l"; . IOTTS,$;iFfi$="VES»ThB«40ELSEGOTO2718 

2690 REM LOSS OF CONTACT 

2'O0 QOSUB3490:PPINT'SIJL:J: CONTflC WnH m VESSEL HAS BEEN LOST, SIR. " 

''IB GOS!jB349e;PRINTC$,":''iTP,B(10)''RESliME COURSE FOR "iD«i", PR SULU. " 
2720 GOSUB3490:PRIHT"SIIUJ' A'€, A'€, SIR ":GOTO3220 
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2730 REM 

2743 30SUB349e;PRINT"SroCK: SEHSORS INDIWTE THRT THE "iH,' IS OVERLOflDIMQ" 
2758 PRINTTfiB^10)"WHRT RBIfllNS OF Hi ?NT!-1flTTER TOS. UNDOUBTEDLY" 
2760 PRINT'!iB;i0)"fl SUICIDflL MOVE.. CfiPTfilN. PODS MILL DETONATE" 
2770 PR:>-iTTP8(i0:'"K 12 SECONDS. ..." 

2788 005163498 : Fim.J J=18T01STEP-i ; PRINTTftB.;i8>.T.J : GOSir580 m^jn GOTO3028 
2790 R=R-RND(200) 

2800 S=R»(360)-188:Bl=RND(360)-18e; IFR<8THENF;=-R 



2810 RETURN 

2820 R=R+RNDC28e) :QOTO2-30e 
2830 R=R-RM)(:408' : 00702888 
2;540 R=R+RND(400):GOTO28W 

2850 G0SUB3«e.PRlNT^'SP0Cj< the ",E*i " IS FIRING PHOTON TORPEDOES AT US " 
28150 R9=9 ; B9=B1 . GOSl'B3350 : IFR»(8»F9THEN30i8 
2878 IRNC'Cex. 4THEN2388ELSEQ0T029ie 

2880 GOSUB3490;PRINT"SPOCK: THE ";£*;" IS FIFING PHflSERS IT US, SIR " 

2890 R9=R;B9=B1;GOSUB3398;IFRND(0»F8THEN3818 

2336 IFRND'OK. 2'^-EN2988 

2910 V=. 5:K=RND(4);IFS=0THEN'-97S 

2920 K=S 

2928 PRINTTfS(ie)"ft HIT (W SHIELD fiK 

2948 IF2(K><=8THEN2978ELSEZ(K)=Z<K)-38*V*(RW)(8>+. 1) 

2^ Hl=«l+V: 005112510 :IR(K)>8T1€N888 

2960 Z<K)=8:PRINTTflB<ie)"THftT'S IT FC« mBS> »"ilO ",SIR. 'iGOTOSee 
2978 Q0SlB34M:PRINT"C(mjTER: TK "iS$;» HfiS BEEN DESTROVED. ":G0T032a 
2988 V=1;K=R»(4);IFS=0T!€N3M 
2998 K=S 

3000 PRINnftB(18)"fl DIRECT HIT W ffllELD I"*", SIR. •;(aT0294e 

3810 PRINTTflB(10)"E'JftSM MfflCUVERS MERE EFFECTED, NO mm. " GOTOSM 

3ffi8 PRINT:Q=IM)<2W);IFQ<RTHEN385e 

3030 (mB3490:PRINT"Dmi7tR; IWIUS (F E!fflOSI(W"i Q; "WH " 
3840 !^INTTf«(10)S*; " HfiS BEEN DESTROVED. ":QOTO3220 
3050 aSlB3490:PRINT"SPra<:";Tf®<i0)Et;" VESSEL DESTROVED, SIR" 
3068 PRINTTflB<10)"RflDIUS (F EXPLOSION aflS-iOi'm ":a)T0322e 



3078 PRINT;PRINT"SPOCK; THE PMSIBLE 


COMMtWS 1 


W AS Fa±aiS:" 


3388 PRINT :PRINT"CO 


D£ amm 


core umm" 


3890 PRIHT'FSW 


RfiNGE/SEflRING 


PHfiSEF 


FORWARD PHfl^" 


3108 PRINT'PHFSER 


REf« msss 


TORPF 


fmm imm' 


3118 PRINT-TORPR 


REflR TtmDO 


PROK 


ANTI-mTER ?m£.' 


3128 PRINT"CLiKE 


ftPPROfiCH (IHPLISE) 


MV 


RETREAT (IMRiSE)" 


3130 PRINT'PltSE 


ff^PIWH (HfW) 


ESCOT 


RETREAT (l«RP)" 


3148 PRINT'SHIELDS 


CfTWUM SHIELDS 


ROTATE 


m mn' 


3150 PRINT"CHflNCES 


FIRI!« CHflNCES 


COIWWS 


REPEAT COMHfMfi" 


3160 PRINT'DflMflQE 


FLtL REPORT 


BLUFF 


TRV H.W 


3170 PRINT"WflIT 


ENEMV'S TURN 


SUICIDE 


SELF-DESTRUCT" 


3180 PRINT"L'JEER 


TURN LEFT 


Rra 


TURN RIGHT' 


3130 PRIHT'SURRENDER". PRINT. PRINT"PRESS 


ENTER TO ' 


IQHTIHUE", :INFUTR$.i 



3280 PRINT; PRiNT"SPOCK:"iTflE(10>Ffc" IS flT RflNGE'iR; "MGH, BEPRING'^E, 
3218 PRINTTflB<13) "DEGREES. "; RETURN 

3223 PRINT. PRINT"COMPUTER: DO TO WISH TO AHEWT ANOTHER BfiniE" 

3230 PRINTTfiB(10)"IN CMIfiND OF THE ",S*i :INPUTft*;IFft$=»VES"THEN540 

3240 PRINT;PRINT"DM1JTER: DO TO WISH TO mW£ SNIPS"; INPUTAI 

3250 iFR$="TES' THEr»=N$CPiiC";5» ;aTO5a0ELSGOTO3488 

3260 PRINT. PRINT"NOTE !€flP(W RANGES ARE:" 

3278 PRINT FR'NT' lyjQjpc 13-49^ siQfi I'nP'lKijM 280 mgMI" 

Il-T' F'INT TOFFEIOES CeC-'OO '1G'' IflPlM ""Gf 

3290 PRINT" PROBES ALL mkgp;- mnp 

I'M t'l-' FiftSE'S ^R£ (1l=E 'ERIl- ~>*m TSOEDCES ^POEES IflbSt 

::i8 "^FINT TOTRL lESTS'.r-O*. E' ^ RFE E-FE:':€ I'i- " -E':':E»r" 

3320 PRTNT-'-ic -Tt«F 'OPPEtOES RND ^uqsESS soE 1C*E DEPPL''" 

'::e ^-vj ,-e- t'-f bearing y '-e ene;*- l- \cse ti % v-^' 

r;cEjr pj'jjT -^Ifr OSES." E'-'E- ^" I"'" ' .E . F '»$. CIS . RETURN 

3359 '3=8 IFHBS^ P9-5Pie'i'>28eTiJE'Q388 

3360 "^=i-(P9-5g0r2/4PO0O GOSHBC^l? 

!:"0 F3=F'':iN'5~ ♦ :-rr ^e: e.-- w ■ 3 

1380 RETURN 
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;:?0 F?=e ip^s «r-ENPE"ucn 

2428 ?£TWM 

3438 IFHD=i4THEN%8 

3443 B=B+98;GO^U1S40 

3470 GOTO1540 
3488 m 
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BOMB DISPOSAL SOUAD 

This is a spiced up version of the original program. There is a 
flashing "TICK" while the computer waits for your input. The setup 
procedure also is reduced. 

Program Listing 



10 REM THIS IS THE PR06RRM OF TIME BOMB 
26 REM THE BOMB CONSISTS OF 4 STICKS OF 

38 REM mmm rhd is connected to fl 

40 REM DIGITftL CLOCK ftND OTHER SENSORS. 
50 REM Uff ORTUNflTELV. VOU CRNNOT JUST 
60 REM CUT THE WIRES FROM THE CLOCK. 
?8 REM IF THE WIRES ARE m CUT ACCORDING 
80 REM TO SEQUENCE. BANG' VOU BLOW UP. 
90 RANDOM :CLS;PRINTTflB(20) "TIME BOMB" 
100 PRINTTAB(20)'^ » 

110 PRINT :PRINT"THE TIME BOMB IS SET TO EXPLODE AFTER 6 MOVES, VOU" 
129 PRIMT"MUST DEFUSE THE BOMB BEFORE THEN, OR ELSE THE RESULTING" 

139 C'RINT-'SXPIOSIOK mil GET VOU !:i";PRINT 

140 PRINT"THERE ARE 16 WIRES LABELED 1 TO 18.. 2 OF THESE WIRES WILL" 
158 ^WWJSE IMMEDIATE EXPLOSION IF CUT !!":PRINT 

160 PRINT"OF THE REMAINING 3 WIRES, 4 ARE NOT CONfCCTED TO ANV" 

170 PRINT"SENSOR.. INCLUDING THE CLOCK. THE BOMB MAKER PLANTS" 

180 PRINT"THESE FALSE WIRES.. JUST Ti] GIVE VOU A HARD TIME IN" 

190 PRINT"DEFUSING THE BOMB. SPRINT 

200 INPUT"PF£SS ENTER WHEN READV TO BEGIN"; fl* 

210 CLS 

220 REM THE WIRES ARE 
230 F=4 

240 FOR I=1TO10:W(I)=2;NEXT 

250 REM SET TWO WIRES TO CAUSE EXPLOSION 

260 FOR 1=1 TO 2 

2^0 .J=RND<10);IF W(J)02 THEN 27© 
280 W(J)=3:NEXT 
290 REM SET UP HARMLESS WIRES 
300 FOR 1=1 TO 4 

310 J=RND(10):IF W(J)02 THEN 310 

320 W(J)=1:NEXT 

330 REM THE REST ARE LIVE 

340 M=0 

350 M=M^i;IF M>6 THEN S8S 

360 CLS; PRINT ;PRINT"THE BOMB IS "; 

370 IF «=1 THEN PRINT"TICKIHG AWAV" ElSE PRINT"STILL TICKING" 
380 PRINT ;PRINT"WHICH WIRE TO CUT?"; ;P=POS(0) 
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i» L=8;R*=" ":J=1 

400 IF fl$=" " THEN Rt="TIC:K !" ELSE fi$=" " 

418 PRINT§9Lflf;CHR$(i8)i :I=0 

420 1=1+1; IF I>50 THEN 400 

420 L*(J)=INKEVI:IF L$(J) = THEN 420 

443 IF L$(J)=CHR$(8) THEN J=J-l;PRINT§13i+P.CHR*(8); :P=P-1:Q0T0 420 

450 IF L$(J)=CHRt(0) THEN PRINT919i+P.CHR$(i2);G0T0 470 

460 PRINT@132+P.Lf(Jn :J=J+i;P=F+l;GOTO 420 

478 P$="":F0R 1=1 TO J:P$=P$+Lia);NEXT I 

480 L=VflL(P$) ; IF L<1 OR L>i0 THEN 510 

490 IF W(L)O0 THEN 520 

500 PRINT :PRINT"SORRy THflT'S BEEN USED";FOR 1=1 TO i808;NEXT I;GOTO 260 

510 PRINT ;PRINT"TRV PICKING fl NUMBER FROM 1 TO 18 THIS TIHE" 

520 FOR 1=1 TO 1080: NEXT I: GOTO 260 

520 IF W(L)=2 THEN 680 

540 IF M<L)=i THEN 600 

550 1»I(L)=0;F=F-1 

560 IF F=0 THEN 640 

570 IF H=6 THEN 688 

580 PRINT ;PRINT"GOOD SHOW ! NOW ONLV"; F.; "MORE TO GO. " 
590 FOR 1=1 TO 1500; NEXT: GOTO 250 
600 IF M=6 THEN 688 

610 W(L)=0;PRI?^T;PRINT"OH! OH! THfiT WAS fl HfiRMLESS Of£" 
620 PRINT"ST!LL^F,"MORE LIVE' ONES TO GO !" 
620 GOTO 590 

640 CLS; PRINT :PRINT"I40W ! WHAT fl GREAT JOB 

658 PRINT :PR1NT"V0U SHOULD HAVE BEEN WITH THE BOMB" 

660 PRINT^DISPOSRL SQUAD. AND VOU DID IT IN";Mj "MOVES. " 

670 GOTO 720 

680 CLS:PRINTCHRf(22); 

690 PRINT0520. "BAAA"; 

700 FOR I=1TO150;NEXT 

710 PRINT'^RRROOOOOOMMMr^M ! I " 

720 FOR 1=1 TO 2000: NEXT 

728 ab:PRINT;PRIN> ;^RINT"WANT TO TRY ANOTHER BOMB (VES OR NO)"; 
740 INPUT H$:r" Hf-="YES^' THEN 210 

m ='RINT;PRINT''NEVER DID LIKE EKPLOSIONS. DID VR?^^:PRINT 
760 END 



BIORHYTHM 

This program is changed from the original. It will display 13 
days starting with the date you specify. Press ENTER to scroll one 
day at a time. Press the "up-arrow" to scroU the next 13 days. Press 
"X" to terminate the program. 

Program Listing 

10 as 

20 QQ=2*i. 14159 
30 DIM fl<i2) 
40 DIM M$(i2) 
50 DIM Xl(51) 

60 WUT"ENTER VOUR BIRTHDflV m> DD. VV) " ; li [). V 

70 INPUT"ENTER TODW'S DATE (MM. DD. f« , -i. vi 

80 IF M > 12 OR Ml > 12 THEN 190 

90 VI = 1900 + VI 

100 V = 1900 + V 

110 P=0:Q=0 

120 R = VI - V 

130 S = R * 365 

140 FOR I = 1 TO 12 

150 mb fl<I),M$(I) 

160 NEHT I 

170 IF Dl > fl(Ml) THEN 190 
180 IF D <= flCM) THEN 200 

190 PRINT-WOliD VOU LIKE TO TRV THAT HGflIN?" RRTnRE GOTO m 

200 IF INT(V / 4) O V / 4 THEN 22m 

210 fl<2) = 29 

220 FOR J = M TO 12 

230 P = p + fl(.J) 

240 NEXT J 

250 P = p - D 

260 fl(2) = 28 

270 IF INT(Vl/4) O Vl/4 THEN 290 

280 fi(2) = 29 

290 FOR J = Ml TO 12 

300 6 = Q + fl(J) 

310 NEXT J 

320 Q = Q - Dl 

330 S = S + INT(R / 4) + P - Q 
340 PRINT 
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350 PRINT "VOU RRE ";Si" DflVS OLD" 
m PRINT 

370 PRINT"V(IIR BIORH™ PROFILE IS:" 
380 P=INT(23*(y23-INT<S/23))+.5) 
390 PRINT Tfe<5),"PH'i'SICflL = ";P 
400 T = INT(28*(S/28-INT(S/28»+. 5) 
410 PRINT TffiO). "EMOTIONAL = ".a 
420 E = INT(33*(S/33-INT<S^33))+.5) 
430 PRINT TflB(5),"INTELLECTUfl = "iE 
440 PRINT 

4^ PRINT"THE FOLLC»^irW IS fl GiWH OF WUR BIORHVTHM. " 
460 PRINT»PRESS ENTER TO SCROLL ONE DflV AT fl TIME PFESS" 
470 PRINTa«$(34); "[''i™<34); " TO ^E THE ^EKT 12 DflVS. " 
480 PRINT-TSTC »;CH?$a4)j"X«;CH?l(34)5" TO STOP. " 
498 FOR N = 1 TO 3 

500 «XT N 

510 GOSUB €.40 

520 fl$=It*:EY$:IF fl$="" THEN 528 

530 IF fll=CHR$(0.) THEN 568 

540 IF fl$="C" THEN GOSUB 670 .GOTO 528 

550 IF fl*="K" THEN 1870 ELSE GOTO 520 

560 REM PRINT 13 LINES 

570 GOSUB 600 

5^ PRINT§960.i 

590 GOTO 528 

600 REM PRINT fl LINE 

610 GCa© 710 

620 PRINT§8, "P = PHVSICflL I = INTELLECTUAL E = EMOTIONAL" 

638 P£TLSP^ 

648 CLS 

650 GOSUB 620 

660 PRINT 

678 FOR 11=1 TO 13 
688 GOSUB 718 
698 fCXT II 
788 RETURN 

718 PRINT MI(M1);D1jTAB(9); 
720 D1=D1+1 

730 IF Dl > A<M1) THEN Dl = 1.M1=M1+1 
740 IF Ml > 12 THEN Ml=l 
750 FO? 1=1 TO 51 
760 X$(I)=" " 
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770 NEKT I 
780 Kl(26)="'" 

790 Ii=INT<SIN(P/2i*QS)*25)+26 
800 I2=INT<SIN<T/28*QQ)*25)^26 
810 0=INT(SIN(E/33-*QQ)*25)+26 
820 X$<I1)="P'' 
838 X$(I2)="E" 
840 X$<Ii:)="I" 

850 IF 11=12 OR I1=0. THEN X$<I1)="*" 
860 IF 12=12 THEN K$(I2)="*" 
870 FOR 1=1 TO 51 
880 PRINT mi)} 
890 NEXT I 

906 p=P+l:IF P = 23 THEN P=0 

910 E=E+1:IF E = 33 THEN £=0 

920 T=T+1:IF T = 28 THEN T=0 

930 PRINT 

940 RETURN 

950 DflTfl 3LJflN 

960 DflTfl 28. FEB 

970 DflTfl 3L«flR 

980 DflTfl 30, APR 

990 DflTfl 31. MAY 

1000 DflTfl 3aJUN 

1010 DflTfl 3LJUL 

1020 DflTfl 31. AUG 

1030 DflTfl 30, SEP 

1040 DflTfl 21, OCT 

1050 DflTfl 30, NOV 

1060 DflTfl 31, DEC 

1070 END 
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LEAP FROG 



Program Listing 

10 REM THIS IS THE GAME OF lERP FROG 

20 REM THERE ARE 5 GREEN FROGS LhBELLED 

30 REM WITH G^S AND 5 BROWN FROGS 

40 REM LRBELLED m¥. B 'S 

50 REM THERE IS R SINGLE SPfiCE LEFT OVER 

60 REM AND IT IS IM THE MIDDLE BETWEEN 

^9 REM THE GREEN fiHD BROWN FROGS 

80 REM TO WIN VOU MUST MOVE ALL THE 

90 REM GREEN FROGS TO THE RIGHT SIDE AND ALL 

100 REM THE BROl'JN FROGS TO THE LEFT 

110 REM SET UP DIM FOR FROGS 

120 DIM A$(12) 

120 REM SET UP COUNTER 

140 C=0 

150 FOR I=1T05:A$<I)="G'^NEKT 

160 FOR I=7T011:BI(I)="B'';NEKT 

170 fl$(6)=" " 

180 CLS: PRINT: PRINT 

190 PRn^"THE GAME OF LEAP FROG" 

200 PRINT" " 

210 PRINT: PRINT 

220 PRINT"OUR GAME STARTS OFF AS:" 
230 PRINT:PRINT"G6QQG".iCHRf(95); "BBBBB" 
240 PRINT :PRINT"TO WIN.. YOU MUST END WITH:" 
250 PRINT:PRINT"B^B^Cff:$05)i "GGGOS" 

260 PRINT:PRINT«NOTE THAT THE -"iCHRIOS); IS T^€ BIPTt' a^fiCE. 
270 PRINT :PRINT"WHAT IS VOUR MOVE (START. END)".; 
■m INPUT S..E 

290 IF ABS(S-E»2THEN PRINT"STO, YOUR LEfff' IS TOO SMALL": GOTO 270 

300 IF A$(S)=" "THEN 320 

"f.10 IF A$(E) O " " THEN 350 ELSE GOTO 370 

320 PRINT :PRINT"HEV, YOU CANNOT START VOUR LEAP WITHOUT" 

330 PRINT"A FPm TO HAVE GIVEN THE LOCATION OF THE" 

340 PRINT"SPACE":GOTO 270 

150 PRINT :PRINT"HEV.. YOU MUST END YOUR LEAP ON A SPACE. " 
360 PRINT"YOU HAVE GIVEN ME THE LOCATION OF A FROG. ":GOTO270 
370 A$(E)=Af<S):AI(S)=" " 
380 Dl="" 
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m m 1=1 TO 11 

400 B$=fl$(I) 

410 IF B$=" " THEN B$<:HR$05) 
420 D$=0$+Bl 
430 f€KT 

440 PRINT :PRINT"THE CURRENT PATTERN OF FROGS IS:" 
450 PRINTD* 
460 C=C+1 

470 IF LEFT$(Dt,5)="BBBBB" M) RIGHT$<D$. 5)="QGQGQ" THEN 4% 
480 GOTO 270 

490 PRINT: PRINT"VOU HAVE DONE IL IN ONLY"; Ci "MOVES" 
500 PRINT :PRINT"DO SW WANT TO TRV fWSAIN"; .INPUT 1$ 
510 IF LEFTI(I$,1)="V" THEN 148 

520 m 
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COMPUTERIZED HANGMAN 

This program was rewritten from the original program to in- 
clude a graphics display of the gallows and a piece by piece assembly 
of a body as shown in Fig. 2-1. Also, 50 vocabulary words are 
included. 

Pressing ENTER in response to "PICK A LETTER" will aUow 
you to guess at the whole word. No penalty for a wrong guess. When 
you pick a wrong letter, it's recorded at the bottom of the display. 



PICK A LETTER? 




E 



LETTERS GUESSED— X, Y, Z 



Fig. 2-1— As the Hangman game progresses, the body is assembled on the 
TRS-80 video display. 
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Program Listing 



10 mmm 

29 DIM WI(50).W(56) 

30 DIM Gs(20) 

40 REH GET WORDS 

50 m 1=1 TO 50: READ WI<I):W(I)=0:NEXT 
68 REM Um GftLLOi€ 
70 CIS 

80 FOR X=6 TO 33 

90 SET(X. 6) :SET(X. 42) .SETCX. 43) ;SET(X, 44) 
100 NEXT 

110 POR Y=? TO 41 
120 SET(6.V):SET(?.V) 
130 NEXT 

140 V=12.F0R X=8 TO 18 S'EP 2 
150 SETCX.. V) : 3ET(X+L V) ; V=V-1 
160 NEXT 

170 FOR V=7 TO li ^ SET(40. Y) : NEXT 

180 REM OK NOH PICK B MORD AT RftNDOM 

190 I=RND(50):IF W<I)O0 THEN 190 

200 W(I )=1 : P$=H$( I • : P=LEN(P$) ; ?1=0 : 8=0 

210 REM CLEAR OUT fiLREADV GUESSED LETTERS 

220 FOR J=l TO 20:G$(J)="":NEXT.Gi=0 

230 REM DRAW CHARACTER POSITIONS 

240 FOR X=418 TO 413+2* (LEM(P$)-1) STEP 2 

250 PRINT9X..'3HRI(14).; 

260 NEXT 

270 FRINT§98a "LETTERS GUESSED -";CHR$(15); 1=998 
280 A$=" " :PRINT830.."PIC:K A LETTER"; : INPUT fl$ 

290 IF LEN<A-$):>1 THEN PRINT§30.. "ONE LETTER AT A TIME.. PLEASE".; :GCTO 348 

300 IF A$0" " THEN 360 

310 PRINT§30. "WHAT IS VOUR GUESS"; : INPUT B$ 

320 IF B$=P$ THEN 890 

330 PRINT994.. "SORRV ! WRONG WORD".; 

340 FOR .J=l TO 1500; NEXT 

350 PRINT§30, CHR$(i0)i :PRINT@94..CHR$<30).; .PRINT?158..CHR$(30).; GOTO 280 
360 Q2=0 

370 G2=G2+1:IF G2>G1 THEN m 

380 IF AI=G$(Q2) THEN PR I NT994, " ALREADY USED" . GOTO 

390 GOTO 370 

m G$(Gl)=At:Gl=Gi+l 

410 J=0 

420 FOR 1=1 TO P 

430 IF m = MID*(PI,. I., 1) THEN PRINT!?418+2*(I-1), A$; ■ .T=.?+l 
440 NEXT 

450 Q=Q+J:IF = P THEN 880 
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468 IF JOe THEN 359 
478 P1=P1+1 

m F L=998 THEN PRINT§Lft$i :L=999 ELSE PRINT8L,".. ";fll; ;L=L+3 

498 ON Pi GOTO 588. 558, 678, 718.. 758, 798 

500 PRIHT?94.. "OH! OH! THERE'S VOUR HEAD"; 

510 FOR X=28 TO 42:SET(X.. i2) :SET<K..15):NEKT 

520 SET(37.. O) : SET(28.. 13) : SET(42.. O) : SET<43.. 13) 

530 SET(37,14) :SET(3a 14) ;SET(42. 14) ;SETf^43. 14) 

540 GOTO 340 

559 ^■RINT994.. "THERE'S VOUR BODV (HUMIfi, "i 

560 PRINTI158.. "PUTTING ON WEIGHT?".; 
570 SET (40, 16) 

580 FOR X=i6 TO 44 ; SET (X, 17). NEXT 

590 SET<3S..13) :SET(44..18) 

688 SET<37..19) ;SET(43,19) 

610 SEt(38,28):5ET(42,20) 

620 SET(38,21):SET(42;21) 

630 SET(37.22);SETC43.22) 

640 S£T(36;23):SET(44..23) 

650 FOR K=36 TO 44. SET (K. 24): NEXT 

660 OTTO 348 

670 PRINT994, "OOPS, THERE GOES THE RIGHT RRH".; 
680 X=35:F0R V=17 TO 21:SET(X.V):X=X-i:NEXT 
690 SET(3L22):SET<32.22) 
708 GOTO 340 

710 PRINT994.. "NOW THE LEFT !!'".; 

720 X=45;FiM? V=l? TO 21:SET(X,V);X=X+1:NEXT 

750 SET(48.22}:5ET(43.22) 

-dy GOTO 340 

75e -'RIHTi?-; "VO'j'RE IN TROUBLE HOW", 
768 ^OR V=25 TO 31 : SET (38, V): NEXT 
770 SE^ (36, 31); SET C?, 31^ 
780 GOTO 3^0 

755 --IH'§54. "QOOO-BVL CRUEL WORLD::!"; 
306 FOR '^^25 TO 31;3ET(42, V) :NEXT 
SIS SE^' 42, 31); SET (44. si> 
828 PPINT§15a."M WORD WftS "jPI 
830 FOR 1=1 TO 2500 -Cl^"^ 

840 CLS;^RIH^;PRINT;r^RIN7"USNT tq tpv RGRIN (-ES 0» HO-^ 
850 INPUT CJ;IF C$="VES" TO 60 
860 PRINT ;PRINT"CHICKEN"'; PRINT 

m FHp 1=1 TO 1008. NEXT 

oqp rLs-PRTWT PRTNT;IF -i<2 ™ PRIN^nW TC GOiTMfi-^ m EXCELLENT 920 
m IF P±:A THEN PRINT-?RETTV GOOD! VOU^RE DOING HELL^' .30^0 928 

PPINT'-THflT WAS CLOSE, BUT VOU GOT IT'" 
920 PRINT ;-RIHT^'WOULD YOU LI^E TO TRV VOUR LUCK hGRIN", 
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330 GOTO 850 
949 DftTfi "HUMS 
350 Dfllfi MUSHROOM 
960 DflTH HMERICft 
9^0 DHTft COMPUTER 
980 DR^R TELEVISION 
990 DflTfl RTLflNTIC 
1800 DfiTfl QfiPES 
1018 DflTR HOUSE 
1020 DfilH PRCIPIC 
1020 DflTfl BOTTOM 
1048 DflTfl SEVERAL 
1850 DflTfl ORANGE 
1060 DflTfl CREAM 
1870 DflTR RECEIVER 
1080 [flTfi INTEGRATED 
1090 DflTfl PRETZEL 
1100 DflTfl VITfiMIN 
1110 DATA CONTfllNER 
1120 DATA DEXTROSE 
iliO DflTfl FflMILV 
1140 DflTfl BASIC 
1150 DflTfl FUNNV 
1168 DflTfl EXTREMELV 
1170 DflTfl EXECUTE 



1180 DflTfl PURPLE 
1190 DflTfl SftNITV 

1200 DflTfl mm 

1218 MTfl TREMENDOUS 
1220 DflTfl FflNTflSTIC 
1230 DATA THOUSAND 
■1240 DATA WHEAT 
1250 DATA GREASE 
1260 DATA r€flDOW 
1270 DATA OSCILLATOR 
1280 DATA CASSETTE 
1298 DATA DICTATE 
1388 DATA BLflffl<ET 
1318 DATA MARBLE 
1320 DATA PFPER 
1338 DATA TVPBtlTER 
O40 DATA POSSIBLE 
058 DATA ATLAS 
1368 DATA LINEAR 
1378 DATA MICROWAVE 
1388 DATA HANGMAN 
1398 DATA BLirOFOLD 
1480 DATA GflLLOl€ 
1410 DATA PLAFORM 
1420 DATA FINANCIAL 
1438 DATA SECTION 
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YOUR CHEATING COMPUTER 
Program Listing 

10 CLS: RANDOM 

20 REM THIS ?mm. "LEflRHS" HOW TO CHER' 
20 REM TO USE IT JUST TVPE RUN 

PRINT^HIS PROGRAM LETS '^OU BE fl DETECTIVE. IT PICKS fl LETTER" 
50 PRIHT^SEQUEHCE HHICH YOU rlUST GUESS - CHE LETTER AT fl TIME. " 
60 PRINT :PRINTnO MAKE THIS GAME' VERY DIFFICULT. THE COMPUTER CHEATS" 
70 PRINT"ON EACH LETTER. WITH THE CHEh^ING A FUNCTION OF Hni4 WELL" 

m mmm} did on the previous tries, obviously, the first try" 
90 print^'will be HCHES" 

108 read A$ 

110 data abcdefghijklmnopqrstuvwkyz 

120 dim Gf(18) 

m rem get a sequence of ten random letters 

140 PGR 1=1 TO 10 
150 K=RND(2b) 
160 G$(I)=MID*(A$.K;1) 
170 NEKT 

180 REM SET UP COUNTER m LETTER IN PROGRESS 
190 C1=0 

200 REM -SET UP COUNTER FOR ALL LETTERS 
210 C2=0 

220 REM S£T UP POINTER TO LETTER IN QUESTION 
23:0 L=l 

240 REM SET UP PROBABILITY 
250 P=l 

260 PRINT -.PRINT'-THE SEQUENCE IS SET UP FOR YOU TRIAL. THE CHANCES" 

270 PRINT"THflT I TON'T CHEAT ARE";P*i00; 

280 PRINT :PRINT"WHAT IS YOUR GUESS".: 

290 C1=C1+1 

200 C2=C2+1 

:<10 INPUT T$ 

220 IF LEN<T$»i THEN 520 
22-0 IF T$OG$(L) THEN 450 

240 CLS:PRINT:PRINT:PRINT''OKA'Y - YOU GOT THIS LETTER" 

250 PRINT^'THE SEQUBCE SO FAR IS 

260 FOR 1=1 TO L 

270 PRINTQf(I).= 

280 NEKT 

290 PRINT 

400 P=P-P*(1/C1)/15 
410 Ci=0 
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428 L=L+i 

420 IF D10 THEN 689 
440 GOTO 260 
450 P1=RND(0) 
460 IF 9m THEN 480 
470 GOTO 580 

480 IF T$>GI(L) THEN 510 

490 PRINT"M)PE - VW m TOO LOW" 

^0 miQ 280 

510 PRINT"NOPE - mt m TOO HIGH" 
520 GOTO 280 

530 PRINT»»£ LEHER AT ft TIME - TURKEV" 

540 PRINT-THIS TRV MfflCES mim EFFORT HORSE. " 

550 IF Cl<2 TI€N 280 

560 C1=C1-1 

570 GOTO 288 

580 IF T$>G$(L) THEN m 

590 GOTO 510 

600 IF C.2:>150 THEN 728 

610 IF C2>100 THEN 786 

620 IF C2:>88 THEN 688 

630 IF C2>60 THEN 668 

646 mwrn CHAMPION HAS STRUCK AGIN" 

650 GOTO 740 

660 PRINT"HEV BOSS - THIS GUV IS CHAHPIONg^IP HflTERIflL" 
670 GOTO 740 

680 PRINT-PRACTICE MAKES PERFECT - KEEP QOTNG" 
690 GOTO 740 

788 PRINT"NOT BAD FOR A BEGINNER - BUT LOUS'!' IF m PLAVED BEFORE. " 
710 GOTO 740 

728 PRINT"HAVE VOU THOUGHT OF PLAVING A SIMPLER GAME - LIKE" 
730 PRINT"FIND VOi.!R FINGER?" 
748 PRINT 

750 PRINT-NUMBER OF TRIES".. C2 

760 PRINT"PRCmiLITV OF CHEATM ON ALL TRIES"; P*100j 
770 PRirfl^:PRINT"T}€ TOTAL SEQUENCE IS "i 
780 FOR I = 1 TO 10 

790 PRINTG*(I).: 
800 mil 

810 PRINT:PRINT:PRINT:PRINT"TRV AfflIN <WNO)"; 
820 WUT T$ 

830 IF TIC'VES" AND liOm' THEN 810 
840 IF T$=''VES'' TI€N 140 
850 EM) 
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AUTO RALLYE 
Program Listing 

li3 REH THE CAR RflLLV 

20 CLS:PRiNT;PRM:FRINT:PRINTTftB<i5)"T H E CAR RAIL V 

40 PRINT :PRINT;PR1NT"THIS IS THE SUPER CAR RALLV. THAT ALL DRIVERS IN" 

50 PR1NT"THE WORLD WAIT FOR. THE DRIVING IS TOUGH THIS VEflR. " 

60 PRINT"AND WE ALL WISH VOU ^GOOD LUCK\ " 

?0 FCiR I=1TO1500;NEXT 

80 CLS: PRINT: PRINT :PRINTTAB(20)" CHOICE OF CARS":PRIHT 
90 PRINTTAB<28)"HINI (1)" 
100 PRINTTAB(20) 'LOTUS (2)" 
110 PRINTTAB(20)"TRAHS-AM CO" 
120 PRINTTAB(20) "FERRARI <4)" 

200 PRINT: PRINT :PRINT"REf€MBER - THE BETTER THE CAR, THE MORE GAS IT USES. " 
210 PRINT :PRINT"ENTER VOUR CHOICE OF CAR (Sv NUMBER)".; 
230 INPUT CI 

240 IF Ci>4 OR CKl THEN PRINT"INVflLID CAR NUMBER. TRV AGAIN"; :GOTO2-i0 
300 CLS: PRINT: PRINT 
310 IF N2=l THEN 350 

320 PRINT"NOW CHOOSE WHICH COURSE VOU WANT TO RACE ON. THE STRfilQTHEST'' 
330 PRINT"COURSE IS NUMBER 1 (BUT THIS HAS THE MOST HAZARDS). NUMBER 5" 
340 PR1NT"C0NSISTS MOSTLV OF TURNS AND TWISTS. ": PRINT 
350 PRINT"WHICH COURSE DO VOU WANT (ENTER ft NUMBER FROf^ 1 TO 5)".; 
360 INPUT C2 

3?0 IF C2>5 OR C2<:i THEN ^RINT" INVALID COURSE NUMBER.. TRV AGAIN. :GOTO 360 
420 CLS: PRINT: PRINT 
430 IF N2=l THEN 490 

440 PRINT''VOU MILL NEED TO TRAVEL 5 MILES WITH . 5 GALLONS OF GAS. " 
450 PRINT"VOUR STATUS WILL BE SHOWN AT 18 SECOND INTERVALS. AFTER" 
460 PRINT"EACH STATUS CHECK.. VOU WILL BE ASKED FOR A NEW RATE OF GAS. " 
470 PRINT"A RATE OF 10 IS HARD ACCELERATION, AND -19 IS HARD BRAKING. " 
488 PRINT"ANV NUMBER IN BETWEEN IS ALLOWABLE. " 
490 FOR 1=1 TO CI: READ B,M,S:B=B/10:NEKT 
530 fll=. 5 : M1=0 : Cl=Cl/2 : V=0 ■ 2=8 
570 PRINT 

580 R1=0:T=0:D=0:Q1=8 

620 PRINT"PRESENT VELOCITV = ";TAB(35)V 

630 PRINT"GALLONS OF FUEL REMAINING =":• TflB(35)Al 

640 PRINT"MILES TRAVELED ="jTAB(35)M1 

650 PRINT"TIME PASSED (SECONDS) ="3TAB(35)T 

660 PRINT :PRINT"WHAT IS VOU NEW RATE OF GAS".: 

670 INPUT G 

680 IF G<-10 OR G>10 THEN PRINT"NOT VALID - TRV AGAIN".; :GOTO670 
720 IF G<9 THEN 780 
730 Z=2+l 

740 IF Z<=4 THEN 7% 

760 PRINT :PRINT"DUMMV i! VOU BLEW VOUR ENGINE !!" 
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770 GOTO 1270 
780 2=0 

790 V=IHT(B*Q-H*V+V) 
300 T=T+i0 
810 PRINT 

820 PRINT^ROfiD CONDITIONS - "i 
820 IF V:>0 THEN 850 
!340 V=0 

850 t11=Hl+V/460 

860 IF G<0 THEN 890 

870 ftL=fli-(Q*S)/5^ 

875 IF MD=5 THEN 1460 

880 IF fli<:0 THEN 1380 

850 IF Rl=l THEN 1850 

900 IF Ql=l THEN 980 

910 Q=INT((C2+l)*Rf-JD(X» 

920 R=INT«I 75-C2)*RND(K)) 

930 IF R>0 THEN 1290 

940 IF m Ti€ff 1340 

950 PRINT"CLEfiR m STRfilGHT^' 

960 PRINT 

970 GOTO o2"0 

980 H=INT'15+i5ARND(K)) 

1080 IF V>H THEN 1509 
1010 PRINT"THR0UGH CURVE" 
1020 PRINT 
1030 Q1=0 
1046 GOTO 620 

1059 £=E-(V-D)*i 

1060 IF E<0 THEN 1100 

1070 PRINT"V£HICL£ ";Er' PEET HHEflD'^ 

1080 PRINT 

1090 GOTO 620 

1100 IF V-D<5 THEN 1180 

1110 PRIHT"WEHICLE PASSED BV"; 

1120 D=V-D 

1130 PRINTD; "MPH": PRINT 
1160 R1=0 
1170 GOTO 620 

1180 PRINT'^VEHICLE BEING PfiSSED" 
1190 D=RND(40)+25;FOR 1=1TQ500:NEXTI 

1200 PRINT :PRINT"GREVHOUND BUS IN THE OTHER LPHE DOING"; D; "HPH ! ! 
1258 PRINT :PRINT"CRfiSH VELOCITV =";V+D;"! ! !" 
1260 FOR I=lTO1500;NEKTI;CLS:PRINTCHR$<2i);PRINTt5i0."CRfiSH ' '":m 
I=1TO1500 ; NEXT : CLS : PRINT ; PRINT 
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1270 PRINT"WHflT TVPE OF FLOWERS DO VOU WISH. ST VQHR FUNERftL 
1280 GOTO 1560 

1239 PRINT^'VEHICLE ftHEflD 1800 FEET" 
O00 PRINT 

1210 D=RND(35)*Ci+25 
O20 Rl=l 
1320 GOTO 620 

1340 PRM"WflRNING; CURVE RHERD" 
1350 Ql=l 

1360 PRINT: GOTO 620 

1330 PRINT"EXCELLENT - BUT WAIT" 

1390 PRINT: FOR I=1TO1000:NEKTI 

1400 PRINT"TURKEV ! ! VOU RPN WT OF GflS ! ! 

1419 GOTO 1550 

1420 PRIHT"DON^T KNOW HOW. BUT YOU HftDE IT =!" 
1430 PRINT 

1440 R1=0 

1450 GOTO 620 

1460 PRINT"THE FINISH LINE 

1470 PRINT 

1480 PRINT"VOU RRE LUCKV THIS VEfiR !!" 

1490 GOTO 1560 

1500 PRINT"flRE TERRIBLE" 

1510 H=H-5*C1 

1520 PRINTHi "WftS THE SPEED THROUGH THE CURVE. " 
1520 PRINTV; "WflS VOUR SPEED. BV THE l-lflV. " 
1540 GOTO 1270 

1550 PR1NT"Y0U LEAD FOOTED %$mm (EXPLITIVE DELETED)" 
1560 PRINT: PRINT" YOU mi TO TRY miH. RIGHT !!!!" 
1570 PRINT"EfffER ■■VES" OR •NO-",; 
1580 INPUT m 

1530 IF fl$="YES" THEN N2=1:G0T0 1640 

1600 PRINT :PRINT"C.HICKEN !!" 

1610 END 

1640 REST(M 

1650 GOTO 210 

1660 DflTfl 45,. 53.. 10 

1670 DflTfl 60.. 5.10 

1680 DfiTfl 70. . 41. 15 

1690 DflTfl 80.. 39.18 

OTHER PROGRAMS 

The following programs included in Section I will run on a 
TRS-80 with no modifications: Guess, Math Whiz Kid Quiz, 
Comp-U -Story. 

To run the program Guess Again, change "SUBSTR" to 
"MOD$" in lines: 400, 410, and 420. 
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Appendix A 
BASIC Statements 

BASIC (Beginners' All-purpose Symbolic Instruction Code) 
was invented and developed between 1963 and 1964 by John 
Kemeny and Thomas Kurtz of Dartmouth College. Since its first use 
in 1964, BASIC has steadily gained popularity as a high-level compu- 
ter language which the user can easily master. The essential vo- 
cabulary is below: 

Statement Example 

CHANGE CHANGE N$ TO N 

DATA DATA 15, -8, 76.... 

DEF DEF FNR (X. Y) = 

(X 2 + Y 8) 

DIM DIM Z(3, 4) 

END END 

FNEND FNEND 

FOR-TO FOR X = 2 TO 66 

GOTO GOTO 100 

GOSUB GOSUB 100 

IF-THEN IF A = X THEN 100 
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Definition 

assigns to the elements of N the ASCII numeric value 
d the string N$ 

the DATA statement assigns appropriate values to 
the variables listed in the READ statement 

a single line function is dei ned by the DEF statement 

dinKnsions the elements of X as a 3 by 4 matrix 
ends program execution 

a multiline DEF statement must end with a FNEND 
(fuiffition end) staten»nt 

defiiKS the FOR, NEXT loop 

transfers execution to line 100 

transfers program control to a subroutine commen- 
cing at 100 

transfers program execution to 100 if the relational 
test is true 



INPUT 

LET 
NEXT 



INPUT X, Y,... 

LETA = V 
NEXTX 



ON-GO TO ON M GO TO 10, 20, 30 

PRINT PRINT "LESLIE- 

RANDOMIZE RANDOMIZE 



READ 
REM 

RESTORE 
RETURN 

RND 
STOP 



READL, K,... 

REM AREA 
RESTORE 
RETURN 

RND 
STOP 



assips to the variable(s) the values presented by the 
user from a user defined device 

assigns the value of V to A 

returns control to the beginning of the FOR-TO loop 

as M ranges in values from 1 up to 1st, 2nd,... line 
number is transferred control, as fdlows to GO TO 
statenttnt 

prints the alphanumeric string within quotation marks 



assures each call to the RND produces a different 
(Hder of random numbers 



reads values torn the DATA statement found in the 
same program 

remaric is placed in the program to be used only 
during Hsting as a debugging aid 

restores the data pointer 

returns program execution to the next instruction 
fdlowing the subroutine cal 

produced a random number 
stops program execution 
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Appendix B 
Derived Functions 



The following functions which are not typical of standard BASIC 
library functions may be easily implemented by the following for- 
mulae: 

ARC SIN(X) = ATN(X/SQR(X*X + 1)) 

ARC COS(X) = ATN(X/SQR(X*X + 1)) + 1.5708 

ARC SEC(X) = ATN(SQR(X*X -1)) + (SGN(X) - l)n.5708 

ARC CSC(X)= ATN(1/SQR(X*X) - 1)) + (SGN(X) - 1)*1.5708 

ARC COT(X) = -ATN(X) + 1.5708 

ARC SINH(X) = LOG(X + SQR(X*X + 1)) 

ARC COSH(X) = LOG(X + SQR(X*X - 1)) 

ARC TANH(X) = L0G((1 + X)/(l - X))/2 

ARC SECH(X) = LOG((SQR(X*X + 1) + 1)/X) 

ARC CSCH(X) = LOG((SGN(X)*SQR(X*X + 1) + 1)/X) 

ARC COTH(X) = LOG((X + 1/(X - l))/2 

COT(X) = 1/TAN(X) 

CSC(X) = 1/SIN(X) 

SEC(X) = 1/C0S(X) 

COSH(X) = (EXP(X) + EXP( - X))/2 

COTH(X) = EXP(-X)/(EXP(X) - EXP( - X))*2 + 1 

CSCH(X) = 2/(EXP(X) - EXP(-X)) 

SECH(X) = 2/EXP(X) + EXP(-X)) 

SINH(X) = (EXP(X) - EXP(-X))/2 

TANH(X) = -EXP(-X)/(EXP(X) + EXP(-X))*2 + 1 
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DIAGNOSTICS (COMMON) 

READ/RESUME, NO DATA: The user has not provided any 
DATA statements or data but has used either the READ or 
RESTORE statements. 

FOR, NO NEXT: The user has constructed a FOR-TO loop but has 
not closed it with a NEXT statement. 

UNDIMENSIONED: Variables that were being used as matrices 
were not dimensioned. 

VECTOR + ARRAY: The same variable was used both as a vec- 
tor and an array. 

VALUE OUTSIDE RANGE: A value has exceeded the bounds for 
that particular function. 

GOSUB NESTING: The user has used more levels of GOSUB 
nesting than the version of BASIC used allows. 

RETURN: A RETURN statement was executed before a GOSUB 
statement. 

DIVISION BY ZERO: Division by zero was tried. 

INVALID EXPONENT: A**B, where A<0 and B< >INT (B). 

LOG(-X): The log of a negative number was specified. 

SQR(-X): The square root of a negative number was specified. 

OUT OF DATA: The set of DATA elements has been exhausted 
and a READ statement is executed. 

ILLEGAL CONSTANT: A string (numeric) data element is read 
into a numeric (string) variable. 

FUNCTION PREVIOUSLY DEFINED: A user defined function 
(DEF statement) has been defined more than once in one pro- 
gram. 

ARRAY PREVIOUSLY DIMENSIONED: An array or a matrix 
has been defined more than once in one program. 

NO SUCH LINE#: A reference has been made to a nonexistent 
line number. 

FOR NESTING (MAX = X): Where the user has exceeded the 
maximum of nesting (where X is the maximum for that particu- 
lar version of BASIC). 

NESTING SAME INDEX: Where a user has constructed a nested 
FOR loop with two or more of the FOR-TO statements using 
the same running variable (index variable). 

WRONG NEXT: The matching NEXT statement must follow the 
corresponding FOR-TO statement. 

ILLEGAL NESTING: FOR-TO loops may be nested, but they 
must not overlap. 

OVERFLOW: A numeric constant exceeds the maximum single- 
precision floating-point value. 
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UNDERFLOW: A numeric constant is smaller than the minimum 

single-precision floating-point value. 
MEMORY EXCEEDED: The generated object code exceeds the 

bounds permitted by the computer and/or the version of 

BASIC being used. 



INCREASE PROGRAM SPEED 

1) Use GOSUB sparingly. 

2) Minimize GOTOs from one section to another section of 
the program. 

3) Check if FOR-NEXT is faster than or slower than IF- 
THEN loops. 

4) For simple integer multiplication such as 2*K,K+Kwill 
be faster. 

5) Check whether simple code is faster than or slower than 
complex expressions. 

SAVING SPACE 

To conserve space and limit the size of programs the following 
hints may be implemented. 

A) Use multiple statements per line number, if the version of 
BASIC allows. There is an overhead of about 5 bytes 
associated with each line in a program. 

B) Use integer values whenever possible as opposed to real 
numbers. 

C) Delete all unnecessary spaces from program lines. 
EXAMPLE: 

10 PRINT K, J; L 
Could be entered as 

10 PRINTKJ;L 

D) Use as few REM statements as possible. 

E) Use variables rather than constants, when the same con- 
stant is required more than a few times. 

F) A program that is one loop and is ended by either CTRL C 
or by running out of data usually does not require an END 
statement. 

G) Re-use variables over and over if possible. 

H) Use go-subs instead of repeating lines of code. 
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SPEED 

The following programs may be timed to give an indication of 
processing speed. 

10 FOR I = 1 TO 1000 
20 LETX = X+1 
30 NEXT I 
40 PRINT X 
50 END 

Instead of line 20 being LET X = X + 1, the user may try 20 
LETX = 10*Xor20LETX = X/10. MultipUcation and division are 
fairly complex software routines. Using the above two replacements 
will give a fair indication of this type of operation speed. 
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Appendix C 
ASCII Code 



Hex Code 


Meaning 


00 


XTT IT 

NuL 


01 


SOH 


02 


STX 


03 


ETX 


04 


EOT 


05 


ENQ 


06 


ACK 


07 


BEL 


08 


BS 


09 


HT 


OA 


LF 


OB 


VT 


OC 


FF 


OD 


CR 


OE 


SO 


OF 


SI 


10 


DLE 


11 


DCl 


12 


DC2 


13 


DCS 


14 


DC4 


15 


NAK 


16 


SYN 


17 


ETB 


18 


CAN 


19 


EM 


lA 


SUB 


IB 


ESC 


IC 


FS 


ID 


GS 


IE 


RS 


IF 


US 


20 
21 


(spedal) 


22 





Comments 

null 

start of heading 
start text 
end text 

end of transmission 
enquiry 

acknowledgement 
beU 

back space 
horizontal tab 
line feed 
vertical tab 
form feed 
carriage return 
shift out 
shift in 

data link escape 

direct control 1 

direct control 2 

direct control 3 

direct control 4 

negative acknowledgement 

synchronous idle 

end of transmission block 

cancel 

end of medium 

substitute 

escape 

form separator 
group separator 
record separator 
unit separator 
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ASCII 

Hex Code Meaning Comments 

23 # - 

24 $ - 

25 % - 

26 & - 
27 

28 ( 

29 ) 
2A * 

2B H- - 

2C 

2D 

2E 

2F / - 

30 - 

31 1 

32 2 - 

33 3 - 

34 4 - 

35 5 

36 6 - 

37 7 - 

38 8 - 

39 9 - 



3A 

3B : 

3C > 
3D 

3E < 

3F ■> 

40 (§> 

41 A 

42 B 

43 C 

44 D 

45 E 

46 F 

47 G 

48 H 

49 I 
4A J 
4B K 
4C L 
4D M 
4E N 
4F 

50 P 

51 Q 

52 R 

53 S 

54 T 

55 U 

56 V 

57 W 

58 X 

59 Y 
5A Z 
58 f 
5C > 
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ASCII 



Hex Code 


Meaning 


Comments 


5D 


1 
J 





5E 







5F 


1 
1 


_ 


60 


A 

A 





61 






62 


b 


_ 


63 


Q 





64 


d 





65 


e 


_ 


66 


f 


_ 


67 


a 
& 





68 


h 


— 


69 


i 


— 


6A 


i 
J 

k 




6B 


_ 


6C 


1 





6D 


m 


_ 


6E 


n 




6F 







70 


p 


_ 


71 


q 


_ 


72 


r 


_ 


73 


s 




74 


t 




75 


u 




76 


V 




77 


w 




78 


X 




79 


y 




7A 


z 




7B 


{ 




7C 


1 




7D 


} 




7E 






7F 


DEL 





Appendix C 



Hexadecimal- Decimal 
Integer Conversion 



The following table provides for direct conversions 
between hexadecimal integers in the range 0-FFF and 
decimal integers in the range 0-4095. For conversion of larger 
integers, the table values may be added to the following 
figures: 



Hexadecimal 


Decimal 


Hexadecimal 


Decimal 


01 000 


"t UtO 


OA AAA 
<U UUU 


1 o 1 nyi 
loi 0/2 


02 000 


ft 109 


OA AAA 
JU UUU 


1 OZ. XAQ 

iVo 6uo 


03 000 


19 9ftft 
1 c coo 


An nnn 
hU UUU 


iol 144 


04 000 


lO ao4 


tin nnn 
jU UUU 


1»5"7 ZOA 

32/ 680 


05 000 


OA AAA 
ZU *OU 


XA AAA 
OU UUU 


393 216 






7n nnn 
/O UUU 


458 752 






OA AAA 

oQ 000 


f AJ AAA 

524 288 


AO ArtA 


0£ /OO 


AA nnn 

VU 000 


fOA AAJ 

589 824 


WT UUU 


Jo oo4 


AO 000 


655 360 


OA ATiA 
UUU 


An OZ.A 

4u ToO 


BO 000 


720 896 


UO UUU 


AK. ACX 
43 UjO 


v-0 000 


786 432 


lY" AAA 
Uv- UUU 


AO 1 CO 


UO 000 


851 968 


An AAA 
UU' UUU 


OJ i4<> 


to 000 


917 504 


AF AAA 
UC UUU 


r7 "iAA 
D/ o44 


CA AAA 

rO 000 


A At f\ 

983 040 


OF 000 


O 1 "rW 


1 nn AAA 

lUU UuO 


1 048 576 


10 000 


65 536 


200 000 


2 097 152 


11 000 


69 632 


300 000 


3 145 728 


12 000 


73 728 


400 000 


4 194 304 


13 000 


77 824 


500 000 


5 242 880 


14 000 


81 920 


600 000 


6 291 456 


15 000 


86 016 


700 000 


7 340 032 


16 000 


90 112 


800 000 


8 388 608 


17 000 


94 208 


900 000 


9 437 184 


18 000 


98 304 


AOOOOO 


10 485 760 


19000 


102 400 


BOO 000 


1 1 534 336 


lAOOO 


106 496 


COO 000 


12 582 912 


IB 000 


110 592 


DOOOOO 


13 631 488 


IC 000 


114 688 


EOOOOO 


14 680 064 


ID 000 


118 784 


FOOOOO 


15 728 640 


IE 000 


122 880 


1 000 000 


16 777 216 


IF 000 


126 976 


2 000 000 


-33 554 432 
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Appendix E 

Standard Logic Symbols 



POSITIVE OR 




Bcx)lean logic: 

D=A+B+C 
Truth table: 



A 


B 


c 


D 














1 








1 





1 





1 


1 


1 





1 








1 


1 


1 





1 


1 





1 


1 


1 


1 


1 


1 


1 



NEGATIVE OR 




Boolean logic: 

D = A+ B+C 
Taith table: 



A 


B 


C 


D 














1 














1 








1 


1 














1 





1 





1 








1 


1 





1 


1 


1 


1 



POSITIVE EXCLUSIVE OR 
B M ^ — D 




Boolean logic: 

D =ABC+ABC+ABC 
Truth table: 



A 


B 


C 


D 


A 


B 


c 


D 











1 











1 


1 











1 








1 





1 











1 





1 


1 


1 





1 


1 


1 














1 











1 


1 


1 





1 


1 


1 





1 








1 


1 


1 





1 


1 





1 


1 


1 


1 


1 


1 


1 


1 



NEGATIVE EXCLUSIVE OR 




Boolean logic: 

D = ABC + ABC + ABC 
Truth table: 
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POSITIVE NOR 




Boolean logic: 



D=A+B+C 
Truth table: 



A 


B 


C 


D 


A 


B 


C 


D 











1 











1 


1 











1 








1 





1 











1 





1 


1 


1 








1 


1 





1 








1 











1 


1 


1 





1 





1 





1 


1 





1 


1 








1 


1 


1 


1 


1 


1 





1 


1 


1 






NEGATIVE NOR 




Boolean logic: 



D=A+B+C 
Truth table: 



POSITIVE EXCLUSIVE NOR 



NEGATIVE EXCLUSIVE NOR 





Boolean logic: 

D = ABC + ABC + 
ABC -I- ABC + ABC 
(ABC + AB + AC + BC) 

Truth table: 



Boolean logic: 

D = ABC + ABC -I- 
ABC + ABC + ABC 

(ABC + AB + AC + BC) 
Truth table: 



A 


B 


C 


D 


A 


B 


C 


D 











1 














1 











1 














1 











1 








1 


1 





1 


1 


1 





1 








1 











1 





1 





1 


1 


1 





1 


1 





1 


1 


1 





1 


1 


1 


1 


1 


1 


1 


1 


1 


1 
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POSITIVE AND 




Boolean logic: 

D = ABC 
Truth table: 



A 


B 


C 


D 


A 


B 


C 


D 


























1 











1 








1 





1 











1 





1 


1 


1 








1 


1 





1 








1 











1 


1 


1 





1 





1 





1 


1 





1 


1 








1 


1 


1 


1 


1 


1 





1 


1 


1 


1 



NEGATIVE AND 




Boolean logic: 
D=ABC 

Truth table: 




POSITIVE INCLUSIVE AND 

A- 
B- 
C- 

Boolean logic: 

D = ABC + ABC + 
ABC + ABC + ABC 

(ABC + AB+AC + BC) 
Trutii teble: 



NEGATIVE INCLUSIVE AND 




Boolean logic: 

D = ABC + ABC + 
ABC + ABC + ABC 

(ABC + AB + AC + BC) 

Truth table: 



A 


B 


C 


D 


A 


B 


C 


D 











1 














1 








1 


1 








1 





1 





1 





1 





1 


1 


1 








1 


1 














1 


1 








1 


1 


1 





1 





1 





1 








1 


1 








1 


1 





1 


1 


1 


1 


1 


1 


1 
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POSITIVE NAND 




Boolean logic: 

D = ABC 
Truth table: 



A 


B 


c 


D 


A 


B 


C 


D 











1 











1 


1 








1 


1 














1 





1 





1 








1 


1 





1 


1 


1 














1 











1 





1 





1 


1 


1 





1 








1 


1 


1 





1 


1 





1 


1 


1 





1 


1 


1 






NEGATIVE NAND 




Boolean logic: 

D = ABC 
Truth table: 



POSITIVE INCLUSIVE NAND 




Boolean logic: 

D = ABC + ABC + ABC 
Truth table: 



NEGATIVE INCLUSIVE NAND 




Boolean logic: 

D = ABC + ABC + ABC 
Truth table: 



A 


B 


c 


D 


A 


B 


C 


D 























1 


1 











1 














1 











1 








1 


1 





1 


1 


1 





1 








1 











1 





1 





1 


1 


1 





1 


1 





1 


1 


1 





1 


1 


1 


1 


1 


1 





1 


1 


1 


1 
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POSITIVE ODD PARITY 




Bcx)lean logic: 

D= ABC + ABC + ABC + ABC 
Truth table: 



A 


B 


C 


D 


A 


B 


C 


D 


























1 








1 


1 








1 





1 





1 





1 





1 


1 


1 








1 


1 














1 


1 








1 


1 


1 





1 





1 





1 








1 


1 








1 


1 





1 


1 


1 


1 


1 


1 


1 


1 



NEGATIVE ODD PARITY 



>— D 




Boolean logic: 

D = ABC + ABC + ABC + ABC 
Truth table: 



POSITIVE EVEN PARITY 



NEGATIVE EVEN PARITY 



B-\ p 

C- 



D — D 




Boolean logic: 

D = ABC + ABC + ABC + ABC 
Truth table: 



Boolean logic: 

D = ABC + ABC+ ABC+ ABC 
Truth table: 



A 


B 


C 


D 


A 


B 


C 


D 











1 











1 


1 











1 














1 











1 








1 


1 





1 


1 


1 





1 








1 











1 





1 





1 


1 


1 





1 


1 





1 


1 


1 





1 


1 


1 


1 


1 


1 





1 


1 


1 
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POSITIVE MAJORITY 




Boolean logic: 

D= AB + AC + BC 
Taith table: 



A 


B 


C 


D 


A 


B 


c 


D 


























1 











1 














1 











1 








1 


1 





1 


1 


1 





1 








1 








6 


1 





1 





1 


1 


1 





1 


1 





1 


1 


1 





1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 



NEGATIVE MINORITY 




D — D 



Boolean logic: 
D = AB + AC + BC 

Truth table: 



POSITIVE NOT MAJORITY 



D— D 




Boolean logic: 



D * AB + AC +BC 



Truth table: 



NEGATIVE NOT MINORlPi 



— D 




Boolean logic: 



D*AB + AC + BC 



Truth table: 



A 


B 


C 


D 


A 


B 


C 


D 











1 











1 


1 








1 


1 








1 





1 





1 





1 





1 


1 


1 








1 


1 














1 


1 








1 


1 


1 





1 





1 





1 








1 


1 








1 


1 





1 


1 


1 





1 


1 


1 
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POSITIVE INVERTER 




Boolean logic: 

D = A 
Truth table: 



A 


D" 


A 


D 





1 





1 


1 





1 






NEGATIVE INVERTER 



A— O 




Boolean logic: 
D=A 

Truth table: 



POSITIVE BUFFER 




Boolean togic: 

D= A 
Tmth table: 



NEGATIVE BUFFER 



A C 




Boolean logic: 

D = A 
Truth table: 



A 


D 


A 


D 














1 


1 


1 


1 
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Appendix F 
Common Number Systems 



Common Number Systems. 



Decimal 


Binary 


BCD 


Octal 


Excass-3 BCD 


Hexadecimal 





00000 


0000 





0011 





1 


00001 


0001 


1 


0100 


1 


2 


00010 


0010 


2 


0101 


2 


3 


00011 


0011 


3 


0110 


3 


4 


00100 


0100 


4 


0111 


4 


5 


00101 


0101 


5 


1000 


5 


6 


00110 


0110 


6 


1001 


6 


7 


00111 


0111 


7 


1010 


7 


8 


01000 


1000 


10 


1011 


8 


9 


01001 


1001 


11 


1100 


9 


10 


01010 


0001 0000 


12 


0001 0011 


A 


11 


01011 


0001 0001 


13 


0001 0100 


B 


12 


01100 


0001 0010 


14 


0001 0101 


C 


13 


01101 


0001 0011 


15 


0001 0110 


D 


14 


01110 


0001 0100 


16 


0001 0111 


E 


15 


01111 


0001 0101 


17 


0001 1000 


F 


16 


10000 


0001 0110 


20 


0001 1100 


10 



249 



Index 



Art Graphics 
ASCII Code 
Auto Rallye 



B 



BASIC Statements 
Biorhythm 

Bomb Disposal Squad 



172 
227 
154, 21 7t 



221 
77, 206t 
69, 204t 



Leap Frog 129, 209t 

Love That Printer Graphics 1 78 



Math Whiz Kid Quiz 
Mouse Hunt 



44. 



109 
194t 



Capture the Alien 50, 196t 

Common Number Systems 249 
Comp-U-Story 150 
Computer Craps 1 65 

Computerized Hangman 135, 211 1 



Decisions! Decisions! 
Derived Functions 



159 
223 



Plot Your 4 Equations 
Plot Your 10 Equations 
Polar Graphic Subroutine 



Ship in the Water 
Sink the Bismark 
Standard Logic Symbols 
Star Warp 
Sub Hunt 



29, 

56, 
17, 



92 
97 
102 



118 
191t 

242 
198t 
188t 



Guess 

Guess Again 



82 
86 



Wumpus 



W 



11, 183t 



Hexadecimal-Decimal 
Interger Conversion 



230 Your Cheating Computer 142, 215t 



Note: A t by a page number indicates an adapatation for TRS-80/PET®. 
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A Note to the Reader 



As a convenience, we are making 12 of the computer 
game programs in this book available on a single 
cassette tape suitable for use with the Radio Shack 
TRS-80 microcomputer. The tape includes every- 
thing required to play the 12 games in TRS-80 Level 
II BASIC. 

The tape is perfect for loading into the computer 
from any cassette tape player via the CLOAD com- 
mand used in the TRS-80, and it serves as a conve- 
nient and permanent storage medium for the games. 

One TAB TAPE contains aU 12 of the game 
programs written for the TRS-80, and is priced at 
only $9.95, postpaid. (Two tapes ordered at one time 
cost only $18.95.) To order, simply send your remit- 
tance and order to TAB BOOKS, Blue Ridge Sum- 
mit, PA 17214. 



• STAR WARP 

• BOMB DISPOSAL SQUAD 

• SINK THE BISMARK! 

• SUB HUNT 

• WUMPUS (MAZE & 

TUNNELS) 

• CAPTURE THE ALIEN 

• COMPUTER CRAPS 

• BIORYTHM 

• LOVE THAT PRINTER 

GRAPHICS 

• YOUR CHEATING 

COMPUTER 

• GUESS 

• LEAP FROG (CHECKERS) 

• AUTO RALLYE 

• COMPUTERIZED HANGMAN 

• COMP-U-STORY 

• MATH WHIZ KID QUIZ 

• ART GRAPHICS 

• DECISIONS! DECISIONS! 

• SHIP IN THE WATER 

• GUESS AGAIN! or SON 

OF A GUESS! 

• POLAR GRAPHIC 

SUBROUTINE 

• PLOT YOUR 4 EQUATIONS 

• PLOT YOUR 10 EQUATIONS 

• MOUSE HUNT 



Here is a unique collection of challeng- 
ing and enjoyable games which can be 
played on microcomputers as well as on 
larger machines. All the items listed at left 
are included; they're designed to improve 
your reaction, calculation ability, logical 
reasoning, the use of mathematical ideas, 
and for just plain fun! 

Each game is written in BASIC and is 
accompanied by a detailed description and a 
complete flow chart to make it easy for even 
a beginner to run it. 

Ken Tracton is the author of several 
previous TAB computer games books as 
well as others on electronic circuitry. 
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